var
n,m,i,j,l,k,s:longint;
x:array[0..1000002] of longint;
procedure qsort(l,r:longint);
var
i,j,mid,p:longint;
begin
i:=l;j:=r;
mid:=x[(l+r) div 2];
while i<=j do
begin
while (x[i]<mid) do inc(i);
while (x[j]>mid) do dec(j);
begin
p:=x[i];x[i]:=x[j];x[j]:=p;
inc(i);dec(j);
end;
end;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
begin
readln(n);
for i:=1 to n do
readln(x[i]);
qsort(1,n);
for i:=1 to n do
writeln(x[i]);
end.
快排，但是运行出来不对。

我就把书中的a换成x就错了，什么意思啊

哪儿错了，FP运行出来对的
你用的TP吧，如果是的话，数组越界

不对，是错了
但我不知道错那儿了

输入：
6
65
32
8
74
13
90
输出：
32
8
13
65
74
90

好吧，我少了一句if i<=j then