DINIC网络流+当前弧优化 const inf=; type rec=record s,e,w,next:longint; end; var b,bb,d,q,tb:..] of longint; a,ta:..] of rec; xz1,xz2:..,..]of longint; ch:char; n,m,i,j,k,l,st,ed,ww,top,top2,ans,nn,dd,x:longint; function min(aa,bb:longint):longint; begin if a…