P1086 花生采摘 将植株按花生数从大到小排序,然后按排序后的顺序摘,每次摘前计算能否在摘后回到路边,如果能就将ans加上该植株花生数,如果不能就直接输出当前ans并退出. var a:array[1..405,1..3] of integer; i,j,x,y,m,n,k,n1,t1,ans,time:longint; procedure sort(l,r:longint); var i,j,m,t:longint; begin i:=l;j:=r; m:=a[(l+r) div 2,1];…