Pagini recente » Cod sursa (job #3179092) | Cod sursa (job #747401) | Cod sursa (job #2586266) | Cod sursa (job #3042000) | Cod sursa (job #710477)
Cod sursa(job #710477)
var b,a:array[1..500000]of int64;
n,i,c,d,left,right:longint;
f,g:text;
procedure qsort(c,d:longint);
var pivot:integer;
aux:longint;
begin
pivot:=a[(c+d)div 2];
left:=c;
right:=d;
while left<=right do
begin
while a[left]<pivot do
left:=left+1;
while a[right]>pivot do right:=right-1;
if left<=right then begin
aux:=a[left];a[left]:=a[right];a[right]:=aux;
left:=left+1;
right:=right-1;end;end;if right>c then qsort(c,right);
if d>left then qsort(left,d);end; begin
assign(f,'algsort.in');reset(f);
assign(g,'algsort.out');rewrite(g);
readln(f,n);
for i:=1 to n do begin
read(f,b[i]);a[i]:=b[i];end;
c:=1;d:=n;qsort(c,d);
for i:=1 to n do write(g,a[i],' ');close(f);close(g);end.