program ct;

uses crt;

var tam,i,j,n:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang 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;

write('day so sau khi sap xep la :');

for i:=1 to n do

write(a[i]:5); writeln;

readln

end.

uses crt;
var A:array[1..1000] of integer;
    n,i,j,tam: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
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
   writeln;
   write('Day so theo thu tu tang dan: ');
   for i:=1 to n do write(A[i]:4);
   readln
end.