Viết chương trình sử dụng biến máng để nhảy từ bàn phím các phân tử của 1 dãy số nguyên.Độ dài của dãy cũng được nhập từ bàn phím.Sắp xếp và hiện dãy theo thứ tự giảm dần.

uses crt;
var i,n,j,tam:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
for i:=1 to n do
for j:=i+1 to n do
 if a[i]<a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
write('sap xep theo thu tu giam dan:');
for i:=1 to n do write(a[i],';');
readln;
end.

(mong dc 5*+hay nhất)