BÀI TẬP 6_MẢNG

Nhập vào dãy số gồm N phần tử (N được nhập và từ bàn phím). Viết chương trình theo yêu cầu:

                    - Sắp xếp dãy số theo thứ tự tăng dần.
                    - Sắp xếp dãy số theo thứ tự giảm dần.
CODE THAM KHẢO
Program BT6;
uses crt;
var A:array[1..100] of integer;
    i,j,n,t: integer;
begin
    clrscr;
    write('Nhap so phan tu N = '); readln(n);
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': ');
            readln(A[i]); 
        end;
    write('Day so tang dan: ');
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if A[i] > A[j] then 
    begin
        t:=A[i];
        A[i]:=A[j];
        A[j]:=t;
    end; 
    for i:=1 to n do write(A[i],' ');
    writeln;
    write('Day so giam dan: ');
    for i:=1 to n-1 do
    for j:=i+1 to n do
    if A[i] < A[j] then 
    begin
        t:=A[i];
        A[i]:=A[j];
        A[j]:=t;
    end;
    for i:=1 to n do write(A[i],' ');
    readln;
end.