记录编号	6276	评测结果	AWAAAAWAAA
题目名称	取数字问题	最终得分	80
用户昵称	SMXX	是否通过	未通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2008-10-31 19:46:58	内存使用	0.12 MiB

program number;
var
f1,f2:text;
a:array[1..20,1..20]of integer;
b:array[0..21,0..21]of integer;
i,j,k,m,n,x,y:integer;
function min(x,y:integer):integer;
begin
if x<y then min:=x
       else min:=y;
end;
begin
assign(f1,'number.in');
assign(f2,'number.out');
reset(f1);
rewrite(f2);

read(f1,m,n);
for i:= 1to m do
 for j:= 1to n do read(f1,a[i,j]);
 x:=n;
  if m>n then x:=m;
 for i:=1to x+1 do
  for j:=1to x+1 do b[i,j]:=10000;
  for i:=1 to x-1 do
   for j:=0 to i do begin
       b[m,n]:=a[m,n];
       b[x-i+j,x-j]:=a[x-i+j,x-j]+min(b[x-i+j+1,x-j],b[x-i+j,x-j+1]);
       end;
   for i:=x-1 downto 1 do
    for j:= i downto 1  do
      b[i-j+1,j]:=a[i-j+1,j]+min(b[i-j+2,j],b[i-j+1,j+1]);

writeln(f2,b[1,1]);
close(f1);
close(f2);
end.