和开发计划一样(数组开太小wa了好多次,然后为什么这么慢? type arr=record toward,next,cap,cost:longint; end; const maxm=; maxn=; var edge:..maxm]of arr; dist,first,sch,a,new,old,p,slack:..maxn]of longint; chose:..maxn]of boolean; maxcost,maxflow,n,s,t,tot,esum,i,tt,sum,jj:longi…