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;

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 giam dan: ');

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

readln;
end.

Uses Crt;

Var A : Array[1..200] Of Integer;

    i,n,tam,j : Integer;

Begin

 Clrscr;

 Write('Nhap n : '); Readln(n);

 For i:=1 to n do

  Begin

   Write('Nhap 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

    Tam:=A[i];

     A[i]:=A[j];

    A[j]:=Tam;

   End;

 Writeln('Thu tu tang dan : ');

 For i:=1 to n do Writeln(A[i]);

 Writeln('Thu tu giam dan : ');

 For i:=n down to 1 do Writeln(A[i]);

 Readln

End.