a)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 tang dan :');
for i:=1 to n do write(a[i]:3);
readln;
end.

b)

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]:3);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;
var a: array[1..100] of integer;
i,n,j,t: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write('nhap phan tu 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
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
write ('Day sau khi sap xep tang dan: ');
for i:=1 to n do write (a[i]:2);

writeln;

Write('Day giam dan: ');

for i:=n downto 1 do write (a[i]:4);

readln;
end.