Chương trình:

program sapxep;

uses crt;

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

      n,i,j,tg: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;

       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;

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

       readln;

end.

Giải thích:

Ban đầu ta nhập dữ liệu

Tiếp theo ta thực hiện sắp xếp:

Dãy tăng dần là số trước nhỏ hơn số sau 

Ta xét từng vị trí, nghĩa là từ vị trí ấy ta tìm số nhỏ nhất và vị trí ấy chính là số nhỏ nhất trong khoản đó

Cuối cùng in mảng đó ra