OIer 1： procedure qsort (l,r: longint ); var i,j,m,t: longint ; begin i:=l; j:=r; m:=a[(l+r) div 2 ]; repeat while a[i]m do dec(j); if ij; if l <j then qsort(l,j); if i <r then qsort(i,r); end ; OIer 2： Procedure QuickSort (Left, Right : Longint ); Var LeftPointer, RightPointer, Medium, Temp : Longint ; Begin LeftPointer := Left; RightPointer := Right; Medium := a[(Left + Right) Shr 1 ]; Repeat While a[LeftPointer] Medium Do Dec(RightPointer); If LeftPointer j; If Left < RightPointer Then QuickSort(Left,RightPointer); If LeftPointer < Right Then QuickSort(LeftPointer,Right); End ; {End Procedure} OIer 3： procedure kuaipai (z,y: longint ); var i,j,m,t: longint ; begin i:=z;j:=y;m:=a[(z+y) div 2 ]; repeat while a[i]m do dec(j); if ij; if z <j then kuaipai(z,j)...