记录编号	6324	评测结果	AAAAAAAAAA
题目名称	取数字问题	最终得分	100
用户昵称	打不死的羊	是否通过	通过
代码语言	Pascal	运行时间	0.017 s
提交时间	2008-10-31 21:35:56	内存使用	0.66 MiB

program number;
Type
fxz1=array[-421..421] of boolean;
fxz2=array[0..25,0..25] of fxz1;
fxz3=array[0..25,0..25] of integer;
var
f1,f2:text;
ans:fxz2;
a:fxz3;
i,j,m,n,k:integer;
begin
assign(f1,'number.in');
assign(f2,'number.out');
reset(f1);rewrite(f2);
readln(f1,m,n);
for i:=1 to m do
begin
for j:=1 to n do
read(f1,a[i,j]);
readln(f1);
end;

{.............................}
ans[1,1][a[1,1]]:=true;
for i:=1 to m do
for j:=1 to n do
for k:=-400 to 400 do
if ans[i,j][k] then begin ans[i+1,j][k+a[i+1,j]]:=true;
                         ans[i,j+1][k+a[i,j+1]]:=true;
                   end;
k:=1;
while (not ans[m,n][k])and(k<=400) do inc(k);
if k=401 then writeln(f2,-1) else writeln(f2,k);
close(f1);close(f2);
end.