取中比较弱......
procedure qsort(l,r:longint);var k,mid,i,j:longint;begin i:=l; j:=r; mid:=a[(l+r) shr 1]; repeat while a[i]>mid do inc(i); while a[j]<mid do dec(j); if i<=j then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; k:=b[i]; b[i]:=b[j]; b[j]:=k; k:=c[i]; c[i]:=c[j]; c[j]:=k; inc(i); dec(j); end; until i>j; if i<r then qsort(i,r); if l<j then qsort(l,j);end;
procedure qsort(l,r:longint);var k,mid,i,j:longint;begin i:=l; j:=r; mid:=a[(l+r) shr 1]; repeat while a[i]>mid do inc(i); while a[j]<mid do dec(j); if i<=j then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; k:=b[i]; b[i]:=b[j]; b[j]:=k; k:=c[i]; c[i]:=c[j]; c[j]:=k; inc(i); dec(j); end; until i>j; if i<r then qsort(i,r); if l<j then qsort(l,j);end;


