最大流-最大利益

。。起初以为基本的最大流最少也能过个4 ~5组数据。。可是不然。。。
就拿NOI2006-Day2的profit来说吧。。。
【问题描述】
新的技术正冲击着手机通讯市场，对于各大运营商来说，这既是机遇，更是挑战。THU集团旗下的CS&T通讯公司在新一代通讯技术血战的前夜，需要做太多的准备工作，仅就站址选择一项，就需要完成前期市场研究、站址勘测、最优化等项目。
在前期市场调查和站址勘测之后，公司得到了一共N个可以作为通讯信号中转站的地址，而由于这些地址的地理位置差异，在不同的地方建造通讯中转站需要投入的成本也是不一样的，所幸在前期调查之后这些都是已知数据：建立第i个通讯中转站需要的成本为Pi（1≤i≤N）。
另外公司调查得出了所有期望中的用户群，一共M个。关于第i个用户群的信息概括为Ai, Bi和Ci：这些用户会使用中转站Ai和中转站Bi进行通讯，公司可以获益Ci。（1≤i≤M, 1≤Ai, Bi≤N）
THU集团的CS&T公司可以有选择的建立一些中转站（投入成本），为一些用户提供服务并获得收益（获益之和）。那么如何选择最终建立的中转站才能让公司的净获利最大呢？（净获利 = 获益之和 - 投入成本之和）
【输入格式】
输入文件中第一行有两个正整数N和M 。
第二行中有N个整数描述每一个通讯中转站的建立成本，依次为P1, P2, …, PN 。
以下M行，第(i + 2)行的三个数Ai, Bi和Ci描述第i个用户群的信息。
所有变量的含义可以参见题目描述。
【输出格式】
你的程序只要向输出文件输出一个整数，表示公司可以得到的最大净获利。
【输入样例】
5 5
1 2 3 4 5
1 2 3
2 3 4
1 3 3
1 4 2
4 5 3
【输出样例】
4
【样例说明】
选择建立1、2、3号中转站，则需要投入成本6，获利为10，因此得到最大收益4。
【评分方法】
本题没有部分分，你的程序的输出只有和我们的答案完全一致才能获得满分，否则不得分。
【数据规模和约定】
80%的数据中：N≤200，M≤1 000。
100%的数据中：N≤5 000，M≤50 000，0≤Ci≤100，0≤Pi≤100。

最基本的最大流用邻接表只能过2组。。。不用邻接表。。1组
我起初做没用邻接表。。只过了一组

这是我宽搜加邻接表后的程序

program as;var   i,j,k,m,n,sum,min,big : longint;   q1          : boolean;   a,less      : array[0..2500,0..2500] of integer;   b,c,s  : array[0..2000] of integer;   bool          : array[0..2000] of boolean;procedure findway(h :integer);begin   min:=s[h];   repeat      dec(a[b[c[h]],b[h]],min);      inc(a[b[h],b[c[h]]],min);      h:=c[h];   until h=1;   sum:=sum+min;end; { findway }procedure dps;var   i,j,k,q,h,min :integer;begin   q:=1;   h:=2;   b[1]:=1;   c[1]:=1;   s[1]:=10000;   while q<>h do   begin      for j:=1 to less[b[q],0] do        begin         i:=less[b[q],j];  if (a[b[q],i]<>0) and (bool[i]) then     begin        b[h]:=i;        c[h]:=q;        bool[i]:=false;        if a[b[q],b[h]]<=s[q] then    s[h]:=a[b[q],b[h]]                  else                    s[h]:=s[q];        if i=n then    begin       findway(h);       exit;    end;        inc(h);     end;          end;      inc(q);   end;   q1:=false;end; { shensou }procedure duru;var   i,j,k,x,y,z,s : integer;   b:array[1..201] of integer;begin   readln(n,m);   for i:=1 to n do     read(b[i]);   q1:=true;   fillchar(a,sizeof(a),0);   for i:=1 to m do     begin       read(x,y,z);       a[i+1,x+m+1]:=100;       a[i+1,y+m+1]:=100;       inc(less[i+1,0]);       a[1,i+1]:=z;       big:=big+z;     end;    s:=0;   for i:=m+2 to m+n+1 do     begin      inc(s);      a[i,m+n+2]:=b[s];     end;   n:=n+m+2;   for i:=1 to n do     for j:=1 to n do       if (a[i,j]<>0)or(a[j,i]<>0) then         begin           inc(less[i,0]);           less[i,less[i,0]]:=j;         end;end; { duru }begin   assign(input,'profit.in');   reset(input);   assign(output,'profit.ans');   rewrite(output);   duru;   repeat      fillchar(bool,sizeof(bool),true);      fillchar(b,sizeof(b),0);      fillchar(s,sizeof(s),0);      fillchar(c,sizeof(c),0);      bool[1]:=false;      dps;   until q1=false;   writeln(big-sum);   close(input);   close(output);end.

过了8组，后两组超内存了。。。。 不过我已经满足了，币以往的2，3组来说我已经很满足了