viết chương trình tạo mảng một chiều gồm n số nguyên ( n ≤ 100 ) rồi sắp xếp dãy số theo giảm dần

uses crt;

var a : array[1 .. 100] of integer;

i, k, n : integer;

begin

clrscr;

write('Nhap n : '); read(n);

write('Nhap ', n ,' so nguyen : ');

for i := 1 to n do readln(a[i]);

for k := n downto 2 do

for i := 1 to k - 1 do

if a[i] < a[i + 1] then begin

a[i] := a[i] + a[i + 1];

a[i + 1] := a[i] - a[i + 1];

a[i] := a[i] - a[i + 1]; end;

write('Mang giam dan : ');

for i := 1 to n do write(a[i],'  ');

readln

end.

Program SX;
Uses crt;
Var A:array[1..10000] of longint;
    i,j,n,tg: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If A[i]<A[j] then
                        Begin
                                tg:=A[i];
                                A[i]:=A[j];
                                A[j]:=tg;
                        End;
        For i:=1 to n do Write(A[i]:5);
        Readln
End.