记录编号 8153 评测结果 AAAAAAAAAA
题目名称 [BYVoid S3] 艾萨拉的激流 最终得分 100
用户昵称 Gravatarrottenwood 是否通过 通过
代码语言 Pascal 运行时间 4.995 s
提交时间 2008-11-13 11:38:00 内存使用 76.49 MiB
显示代码纯文本
program azshara;
type
shuzu=array[0..10000,0..1000] of longint;
var
s,f:shuzu;
i,j,k,m,n,x,y,max:longint;
begin
assign(input,'azshara.in');reset(input);
assign(output,'azshara.out');rewrite(output);
readln(m,n);
for i:=1 to n do
begin
 for j:=1 to m do
 begin
  read(s[i,j]);
  if s[i,j]=-1 then s[i,j]:=-maxint;
  end;
  readln;
  end;
 for i:=1 to n do
   for j:=1 to m do
    begin
     for k:=j-1 to j+1 do
    if f[i,j]<f[i-1,k]+s[i,j] then f[i,j]:=f[i-1,k]+s[i,j];
    end;
max:=f[n,1];
for i:=2 to m do
   if f[n,i]>max then max:=f[n,i];
if max<=0 then writeln('0')
          else writeln(max);
   end.