[模板]快排

题目描述

利用快速排序算法将读入的N个数从小到大排序后输出。

快速排序是信息学竞赛的必备算法之一。对于快速排序不是很了解的同学可以自行上网查询相关资料，掌握后独立完成。（C++选手请不要试图使用STL，虽然你可以使用sort一遍过，但是你并没有掌握快速排序算法的精髓。）

输入输出格式

输入格式：

输入文件sort.in的第1行为一个正整数N，第2行包含N个空格隔开的正整数a[i]，为你需要进行排序的数，数据保证了A[i]不超过1000000000。

输出格式：

输出文件sort.out将给定的N个数从小到大输出，数之间空格隔开，行末换行且无空格。

var
 x,y,n,k:longint;
 a:array[0..100001] of longint;

procedure kui(x,y:longint);
var
 i,j,t,m:longint;
begin
 i:=x;j:=y;
 m:=a[(i+j)div 2];
 repeat
   while a[i]<m do inc(i);
   while a[j]>m do  dec(j);
   if i<=j then begin
                 t:=a[i];
                 a[i]:=a[j];
                 a[j]:=t;
                 inc(i);
                 dec(j);
                end;
  until i>j;
 if i<y then kui(i,y);
 if x<j then kui(x,j);
end;
begin
 read(n);
 for k:=1 to n do
  read(a[k]);
 kui(1,n);
 for k:=1 to n do
 write(a[k],' ');
end.