最佳旅游线路

阿龙想到这个旅游街游玩，他的好友阿福给了他一些建议，用分值表示所有旅游街相邻两个路口之见的街道值得游览的程度，分值是从-100到100的整数，所有林阴道不打分。所有分值不可能全是负分。如图：

输入输出格式输入格式：输入文件的第一行是两个整数m和n,之间用一个空格隔开，m表示有m条旅游街（1≤m≤100 ），n 表示有(n+1)条林阴道（1≤n≤20001 ）。接下来的m行依次给出了由北向南每条旅游街的分值信息。每行有n个整数，依次表示了自西向东旅游街每一小段的分值。同一行相邻两个数之间用一个空格隔开。输出格式：输出文件只有一行，是一个整数，表示你的程序找到的最佳游览线路的总分值。输入输出样例输入样例#1：

3 5 -50  –47  36   –30  –23 17   –19  –34  –13  –8 -42  –3   –43  34   -45

输出样例#1：84

var a2:array[1..100,1..20001]of longint; a,f:array[1..20001]of longint; i,j,n,m,max:longint;begin max:=-maxlongint; read(n,m); for i:=1 to n do  for j:=1 to m do  read(a2[i,j]); for i:=1 to m do  begin   max:=-maxlongint;   for j:=1 to n do   if a2[j,i]>=max then max:=a2[j,i];   a[i]:=max;  end; if a[1]>0 then f[1]:=a[1]; for i:=2 to m do  if f[i-1]+a[i]>0 then f[i]:=f[i-1]+a[i]; for i:=1 to m do  if f[i]>=max then max:=f[i]; if max=0 then begin  max:=-maxlongint;  for i:=1 to m do  if max<a[i] then max:=a[i]; end; write(max);end.