uses crt;

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

i, j, n, T : integer;

begin

clrscr;

write('Nhap n : '); readln(n);

write('Nhap day gom ', n ,' so : ');

for i := 1 to n do read(B[i]);

for i := n downto 2 do

for j := 1 to i - 1 do

if B[j] < B[j + 1] then begin

T := B[j]; B[j] := B[j + 1];

B[j + 1] := T; end;

write('Day sap xep giam dan : ');

for i := 1 to n do write(B[i],' ');

readln

end.

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