For j:=n downto 2 do
For i:=1 to j – 1 do
If a[i] <= a[i+i] then
Begin
T:=a[i];
A[i]:=a[i+1];
A[i+1]:=t;
End;

* * * * * ** * ** * ** * ** * ** * ** * ** * *

vd :

* n = 3; 

* a1 = 8; 

* a2 = 4; 

* a3 = 6

- for j := n downto 2 to ⇔ for j := 3 downto 2 to ⇔ giá trị của j chạy từ 3 giảm về 2

- for i := 1 to j - 1 do ⇔ for i := 1 to 3 - 1 do ⇔ for i := 1 to 2 do ⇔ giá trị của i  từ 1 tăng đến 2

- nếu a[i] <= a[i + i] đúng thì thực thi câu lệnh ghép begin ... end;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

* Với i = 1

⇔ a[i] <= a[i + i]

⇔ a[1] <= a[1 + 1]

⇔ a[1] <= a[2] 

⇔ 8 <= 4 => điều này sai => không thực thi câu lệnh ghép

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

* Với i = 2

⇔ a[i] <= a[i + i]

⇔ a2 <= a[3]

⇔ 4 <= 6 => điều này đúng => thực thi câu lệnh ghép

t := a[2] ⇔ t := 4

a[i] := a[i + 1] ⇔ a[2] := a[3] ⇔ a[2] := 6

a[i + 1] := t ⇔ a[3] := t ⇔ (mà t := 4) ⇔ a[3] = 4

=> giá trị a[2] và a[3] đã hoán đổi a[2] = 6, a[3] = 4

* * * * * * * * * * * * * * * * * * * * * * * * * * * 

=> dãy sắp xếp lần lượt là : 8      6       4 

=> khi gặp phần tử trước bé hơn phần tử sau chúng sẽ hoán đổi cho nhau 

A. Sắp xếp dãy a thành dãy không tăng
B. Sắp xếp dãy a thành dãy không giảm
C. Sắp xếp dãy a thành dãy tăng
D. Sắp xếp dãy a thành dãy giảm