-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.
