mô tả thuật toán sắp xếp giảm dần trên 1 dãy số cụ thể trong mảng A: 3 2 5 8 9

Thuật toán:

– Cho biến i chạy từ 1 -> n-1 (vì đi đến số gần cuối sẽ xét số cuối nên sẽ là n-1)

– Cho biến j:=i+1 chạy đến n (vì j là biến xét từng số theo từ a[2] trở đi, còn i là ở a[1])

– Xét a[i]>a[j] thì có nghĩa là a[i] chưa nhỏ nhất, nếu có 1 số a[j]<a[i] thì hoán đổi hai số

Chương trình:

uses crt;
var a:array[1..10000] of longint;
        n,i,j,k:longint;
begin
        clrscr;
        write(‘Nhap so luong phan tu: ‘); 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
                                        k:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=k;
                                end;
        write(‘Day tang dan: ‘);
        for i:=1 to n do write(a[i],’ ‘);
        readln;
end.