回帖：var
x:array[1..25000]of integer;
i,n:integer;
procedure qsort(v1,v2:integer);
var i,j,t:integer;
mid:integer;
begin
i:=v1;j:=v2;mid:=x[(i+j) div 2];
while ix do inc(i);
while mid