5、最佳游览路线问题

　　输入数据：输入文件是INPUT.TXT。文件的第一行是两个整数M和N，之间用一个空格符隔开，M表示有多少条旅游街（1≤M≤100），N表示有多少条林荫道（1≤N≤20000）。接下里的M行依次给出了由北向南每条旅游街的分值信息。每行有N-1个整数，依次表示了自西向东旅游街每一小段的分值。同一行相邻两个数之间用一个空格隔开。

　　输出文件：输出文件是 OUTPUT.TXT。文件只有一行，是一个整数，表示你的程序找到的最佳浏览路线的总分值。

　　Program Tour;
　　var m,n:integer; {M为旅游街数，N为林荫道数}
　　　　data:array[1..20000] of -100..100;{data是由相邻两条林荫道所分}
　　procedure Init; {隔的旅游街的最大分值}
　　var a,b,c:integer;
　　　　f1:text;
　　begin
　　　assign(f1,'input.txt');
　　　reset(f1);
　　　read(f1,m,n);
　　　for a:=1 to n-1 do read(f1,data[a]); {读取每一段旅游街的分值}
　　　for a:=2 to m do
　　　　for b:=1 to n-1 do
　　　　begin
　　　　　read(f1,c);
　　　　　if c>data[b] then data[b]:=c; {读取每一段旅游街的分值，并选择}
　　　　end; {到目前位置所在列的最大分值记入数组data}
　　　close(f1);
　　end;
　　procedure Done;
　　var a,sum,result,c:integer;
　　　　f2:text;
　　begin
　　　result:=0;
　　　sum:=0;
　　　a:=0;
　　　while (a<n) do
　　　begin
　　　　inc(a); {从数组的第一个数据开始累加，将累加所}
　　　　sum:=sum+data[a]; {得到的最大分值记入result}
　　　　if sum>result then result:=sum;
　　　　if sum<0 then sum:=0; {若当前累加值为负数，则从当前状态起从新}
　　　end; {累加}
　　　assign(f2,'output.txt');
　　　rewrite(f2);
　　　writeln(f2,result);
　　　close(f2);
　　end;
　　begin
　　　Init;
　　　Done;
　　end.