取数字问题
Time Limit:10000MS Memory Limit:65536K
Total Submit:322 Accepted:113
Case Time Limit:1000MS
Description
给定M*N的矩阵,其中的每个元素都是-10到10之间的整数。你的任务是从左上角(1,1)走到右下角(M,N),每一步只能向右或向下,并且不能走出矩阵的范围。你所经过的方格里面的数字都必须被选取,请找出一条最合适的道路,使得在路上被选取的数字之和是尽可能小的正整数。
Input
第一行两个整数M,N,(2<=M,N<=10),分别表示矩阵的行和列的数目。
接下来的M行,每行包括N个整数,就是矩阵中的每一行的N个元素。
Output
仅一行一个整数,表示所选道路上数字之和所能达到的最小的正整数。如果不能达到任何正整数就输出-1。
Sample Input
2 2
0 2
1 0
Sample Output
1
var
f:array[0..10,0..10,-1000..1000]of boolean;a:array[1..10,1..10]of longint;
i,j,k,m,n:longint;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
f[1,1,a[1,1]]:=true;
for i:=1 to m do
for j:=1 to n do
begin
if f[i,j-1,k] then f[i,j,k+a[i,j]]:=true;
if f[i-1,j,k] then f[i,j,k+a[i,j]]:=true;
end;
for i:=1 to m do
for j:=1 to n do
begin
for k:=-1000 to 1000 do
if f[i-1,j,k] then f[i,j,k+a[i,j]]:=true;
for k:=-1000 to 1000 do
if f[i,j-1,k] then f[i,j,k+a[i,j]]:=true;
end;
for i:=1 to 1000 do
if f[m,n,i] then begin write(i); halt;end;
write(-1);
end.