viết chương trình nhập một dãy số tối đa 100 số và sắp xếp lại dãy số đó theo thứ tự giảm dần

program chuongtrinh;

uses crt;

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

      n,i,j,tg:integer;

begin

          clrcsr;

          write(‘Nhap so luong phan tu can sap xep: ‘);  readln(n);

          for i:=1 to n do

          begin

                    write(‘Nhap so thu ‘,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;

            write(‘Day so sap xep giam dan la: ‘);     

            for i:=1 to n do write(A[i],’ ‘);

           readln;

end.