procedure kuai(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;j:=r;
x:=b[(l+r) div 2];
repeat
while b[i]
if i<=j then
begin
y:=b[j];
b[j]:=b[i];
b[i]:=y;
inc(i);
dec(j);
end;
until i>j;
if i
在主程序里kuai(1,n) 即可
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024