uese crt;

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

n,i,max,h: integer;

begin

clrscr;

writeln('nhap so phan tu day:'); readln(n);

for i:=1 to n do begin

writeln('nhap so thu',i,':'); readln(a[i]);

end;

for i:= 1 to n-1 do

for h:= i+1 to n do

if a[i]>a[h] then begin

max:=a[i];

a[i]:=a[h];

a[h]:=max;

end;

writeln('Thu tu tang dan la:');

for i:= 1to n do

write(a[i]:4);

readln;

end.

program ct;

uses crt;

var i,n,tam,j: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('day so sap xep theo thu tu tang dan la');

    for i:=1 to n do

        write(A[i],'  ');

readln

end.