题目描述
某旅游区的街道成网格状。其中东西向的街道都是旅游街，南北向的街道都是林阴道。由于游客众多，旅游街被规定为单行道，游客在旅游街上只能从西向东走，在林阴道上则既可从南向北走，也可以从北向南走。
阿龙想到这个旅游街游玩，他的好友阿福给了他一些建议，用分值表示所有旅游街相邻两个路口之见的街道值得游览的程度，分值是从-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
公式：
k:=a[i]+k[i] or k+a[i]<0 then k:=0;
代码如下：
var
max,i,j,k,n,m:longint;
a,f:array[-1..20000]of longint;
begin
readln(n,m);
for i:=1 to m do
begin
a[i]:=-maxint;
f[i]:=0;
end;
for i:=1 to n do
for j:=1 to m do
begin
read(k);
if k>a[j] then
a[j]:=k;
end;
k:=0;
max:=-maxlongint;
for i:=1 to m do
begin
if k+a[i]<0 then
k:=0
else
k:=k+a[i];
if k>max then
max:=k;
end;
writeln(max);
end.
输出样例#1：
84
转载请注明原文地址: https://ju.6miu.com/read-12829.html
