Дистанционная подготовка: Есть быстрее программа
Есть быстрее программа
от Алмаз Ханнанов - Вторник 26 Март 2019, 12:11
112317. Сортировка 
  var
a:array [1..10000] of int64;
n,i,j,k,t:int64;
begin
readln(n);
for i:=1 to n do read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]<a[i] then begin
j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do write(a[t],' ');
writeln;
end;
until j=0;
if k=n then writeln(0);
end.