program tang_dan;

uses crt;

var A:array[1..1000] of integer;

      n,i,j,tg,max,min:integer;

begin

       clrscr;

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

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

              end;

       max:=A[1];  min:=A[1];

       for i:=2 to n do

              if A[i]>max then max:=A[i]

                     else if A[i]<min then min:=A[i];

       writeln('So lon nhat la: ',max);

       writeln('So nho nhat la: ',min);

       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 sap xep theo tang dan la: ');

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

       readln;

end.

Cho mik xin nhất plz