P2096

题目描述


某旅游区的街道成网格状。其中东西向的街道都是旅游街，南北向的街道都是林阴道。由于游客众多，旅游街被规定为单行道，游客在旅游街上只能从西向东走，在林阴道上则既可从南向北走，也可以从北向南走。


阿龙想到这个旅游街游玩，他的好友阿福给了他一些建议，用分值表示所有旅游街相邻两个路口之见的街道值得游览的程度，分值是从-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
 a:array[0..1000,0..20001] of longint;
 f,s:array[0..20001] of longint;
 k,n,m,ans,max:longint;
 i,j:longint;
begin
 read(n,m);
 for i:=1 to n do
  for j:=1 to m do
  read(a[i,j]);

 for i:=1 to m do
 begin
  s[i]:=-maxlongint;//保证每行第一个会先进数组
   for j:=1 to n do
    if a[j,i]>s[i] then s[i]:=a[j,i];//找出每行的最大，因为题目说过南北走向可以直行
 end;

 for i:=1 to m do
  f[i]:=f[i-1]+s[i];//把上部分得到的值得地点记录在f里，加上上一位是为了得到走之后的值

  for i:=0 to m do
   for j:=i+1 to m do
    if f[j]-f[i]>ans then
     ans:=f[j]-f[i];//转移

  write(ans);
end.