uses wincrt;
var n,tg,i,j:integer;
begin
->Đây là phần nhập số chắc ai cũng biết
write('nhap n= ');
readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']= ');
readln(a[i]);
end;
->Bây giờ mới là phần chính của chương trình
for i:=1 to n do
for j:=i+1 to n do
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
write(a[i]:3);
end.
->Kết thúc chuơng trình.
-Phan Bảo Duy-