Pagini recente » Cod sursa (job #850397) | Cod sursa (job #80273) | Cod sursa (job #2366800) | Cod sursa (job #601215) | Cod sursa (job #710479)
Cod sursa(job #710479)
var b,a:array[1..500000]of int64;
n,i,c,d,left,right:longint;
f,g:text;
procedure qsort(c,d:integer);
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.