Pagini recente » Cod sursa (job #167255) | Cod sursa (job #827988) | Cod sursa (job #1355900) | Cod sursa (job #3165026) | Cod sursa (job #1413074)
program sortare_prin_comparare;
var f,g:text;
bufin:array[1..1 shl 22] of char;
a:array[1..500000] of longint;
i,n:longint;
procedure quick(l,r:longint);
var x,i,j,aux:longint;
begin
x:=(l+r) div 2;
i:=l; j:=r;
repeat
while a[i]<x do inc(i);
while a[j]>x do dec(j);
if i<=j then
begin
aux:=a[i];
a[i]:=a[j];
a[j]:=aux;
inc(i);
dec(j);
end;
until i>j;
if l<j then quick(l,j);
if r>i then quick(i,r);
end;
BEGIN
assign(f,'algsort.in');reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
quick(1,n);
assign(g,'algsort.out');rewrite(g);
settextbuf(f,bufin);
for i:=1 to n do
write(g,a[i],' ');
close(g);
END.