Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,tg:integer;
Begin
Clrscr;
Write('Nhap so ptu N= '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu 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
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
End;
Writeln;
Writeln(' Day so sau khi sap xep theo thu tu tang dan la: ');
For i:= 1 to n do Write(a[i]:5);
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;
Writeln;
Writeln(' Day so sau khi sap xep theo thu tu giam dan la: ');
For i:= 1 to n do Write(a[i]:5);
Readln
End.

-Tăng dần

Program Sap_xep_tang_dan;

Uses crt;

Var

i, N, j, c: integer;

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

Begin

Clrscr;

Writeln(‘Nhap do dai cua day:’); Readln(N);

For i:=1 to N do

Begin

Writeln(‘Nhap cac phan tu trong day 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

c:=A[i];

A[i]:=A[j];

A[j]:=c;

End;

Writeln(‘Mang sau khi sap xep:’);

For i:=1 to N do

Writeln(A[i]:5);

Readln;

End.

-Giảm dần

Program Sap_xep_giam_dan;

Uses crt;

Var

i, N, j, c: integer;

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

Begin

Clrscr;

Writeln(‘Nhap do dai cua day:’); Readln(N);

For i:=1 to N do

Begin

Writeln(‘Nhap cac phan tu trong day 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

c:=A[i];

A[i]:=A[j];

A[j]:=c;

End;

Writeln(‘Mang sau khi sap xep:’);

For i:=1 to N do

Writeln(A[i]:5);

Readln;

End.