program solonnhat;

uses crt;

var A:array[1..15] of real;

      n,i,j:byte;

      tg:real;

begin

     clrscr;

     write('Nhap so luong phan tu n: ');   readln(n);

     for i:=1 to n do

          begin

               write('Nhap so 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

                         tg:=A[i];

                         A[i]:=A[j];

                         A[j]:=tg;

                    end;

     write('Day sau khi sap xep giam dan la: ');

     for i:=1 to n do

          write(A[i]:2:2);

     readln;

end.

Xin hay nhất!

uses crt;
var N,I,J,T:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n(n<=15)= ');readlN(N);
   for i:=1 to n do
       begin
          write('a[',i,']=');readln(a[i]);
       end;
   for i:=1 to n do
      for j:=1 to i do
         if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
   write('Mang sau khi sap xep giam dan: ');
   for i:=1 to n do write(a[I],' ');
readln
end.