好题,这道题可以用线段树来快速模拟费用流寻找最长增广路 这样修改怎么做也很显然了 type node=record s,lx,rx,mx,lp,rp,pb,pe:longint; end; ..*,..] of node; rev:..*] of boolean; a:..] of longint; q:..] of node; j,t,ans,i,n,m,x,y,k,ch:longint; c:node; procedure swap(var a,b:node); var c:node; be…