记录编号	6306	评测结果	AAAAAAAAAA
题目名称	取数字问题	最终得分	100
用户昵称	.Xmz	是否通过	通过
代码语言	Pascal	运行时间	0.032 s
提交时间	2008-10-31 20:50:21	内存使用	0.45 MiB

program xmz;
var
x:array[1..20,1..20]of integer;
f:array[0..20,0..20,-400..400]of boolean;
i,j,k,m,n:integer;
f1,f2:text;
begin
assign(f1,'number.in');
assign(f2,'number.out');
reset(f1);
rewrite(f2);
read(f1,m,n);
for i:=1 to m do for j:=1 to n do read(f1,x[i,j]);
for i:=0 to 20 do begin f[i,0,0]:=true;f[0,j,0]:=true;end;
f[1,1,x[1,1]]:=true;

for i:=1 to m do
 for j:=1 to n do
  for k:=-400 to 400 do
   if ((i<>1)and(f[i-1,j,k]=true))or((j<>1)and(f[i,j-1,k]=true)) then
    f[i,j,k+x[i,j]]:=true;

for i:=1 to 400 do
 if f[m,n,i]=true then begin write(f2,i);close(f1);close(f2);halt;end;
write(f2,-1);close(f1);close(f2);
end.