var
  f,v:longint;
  b,t:array[1..101,1..101] of longint;
procedure init;
var
  i,j:longint;
begin
  readln(f,v);
  for i:=1 to f do
    begin
      for j:=1 to v do read(b[i,j]);
      readln;
    end;
end;
procedure main;
var
  i,j:longint;
begin
  for i:=1 to f+1 do t[i,v+1]:=-maxlongint;
  for j:=v downto 1 do
    if t[f,j+1]>b[f,j] then t[f,j]:=t[f,j+1]
                       else t[f,j]:=b[f,j];
  for i:=f-1 downto 1 do
    for j:=v downto 1 do
      begin
        t[i,j]:=t[i,j+1];
        if t[i+1,j+1]+b[i,j]>t[i,j] then t[i,j]:=t[i+1,j+1]+b[i,j];
      end;
end;
procedure print;
begin
  writeln(t[1,1]);
end;
begin
  init;
  main;
  print;
end.

• 你那个ms是官方提供的程序吧。。。。。。。。 (774) oier001 2005-07-14 10:27:03
  • 明显是自己写的，Why WA? (0) JiangLY 2005-07-16 23:08:15
    • AC……低级错误 (0) JiangLY 2005-07-16 23:31:07
      • Re:AC……低级错误 (5) ildg 2006-07-13 10:38:01