[Tin] Pascan và vấn đề thi HSG Tin học

[thanhkhoeo[D2T Physics]]

cậu xem lại cách sắp xếp mảng đi nhé

theo thành thì thế này cơ

for i:= 1 to n-1 do
for j:=2 to n do
if a[i] > a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:= t;
end;