$@tunguyen09$

Bạn tham khảo nhé 

Program Day_so_tang_dan 

Uses Crt;

Var a,b,c,d,e :integer;

f:array[1...10000] of integer ;

Begin 

        Clrscr;

        Writeln('Day so được sap xep theo thu tu  khong giam ') 

        Writeln(' Nhap so phan tu cua day b:= ');

        Readln(n); For a:=1 to n do 

        Begin 

        Writeln('f[',a,' ] =') ;

        Readln('f[a]) ;

        End;

        For a:=1 to b-1 do 

        For c:= 1 to a +1 do 

        If f[a]  < f[c]  then 

        Begin 

        t:= f[a] 

        f[a] = f[c] ;

        f[c] = d;

End. 

uses crt;
var i,n,t,j:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(A[i]);
         for j:=1 to i do
            if a[j]<a[i] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
      end;
   for i:=1 to n do write(a[i]:5); writeln;
   for i:=1 to n do write(a[n-i+1]:5); writeln;
readln
end.