pascal 田忌赛马问题答:type arr=array[1..5000] of integer;var a:array[1..2] of arr;i,j,n,p,l,r,k:integer;procedure qsort(var a:arr;l,r:integer);var i,j,x,y:integer;begin i:=l; j:=r; x:=a[(l+r) div 2];repeat while a[i]<x do inc(i);while a[j]>x do dec(j);if i<...