Дистанционная подготовка: Алмаз п****
Алмаз п****
от Aleksey Ruzanov - Вторник 28 Январь 2020, 08:37
112482. Сортировка массива неизвестной длины
  var a:array [1..100000] of integer; n,i:integer; f:text;
procedure qs(l,r:integer);
var i,j,w,q:integer;
begin
i:=l; j:=r;
q:=a[(l+r)div 2];
repeat
while(a[i] < q) do inc(i);
while(q < a[j]) do dec(j);
if(i <= j) then
begin
w:=a[i]; a[i]:=a[j]; a[j]:=w;
inc(i); dec(j);
end;
until(i > j);
if (l < j) then qs(l,j);
if (i < r) then qs(i,r);
end;
begin
assign (f,'input.txt');
reset(f);
readln(f,n);
for i:= 1 to n do read(f,a[i]);
close(f);
qs(1,n);
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
write(f,a[i],' ');
close(f);
end.