取数字问题

取数字问题

Time Limit:10000MS  Memory Limit:65536K
Total Submit:302 Accepted:102
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 Inpu

2 2

0 2

1 0

Sample Output

1

var a:array[1..10,1..10] of longint; f:array[0..10,0..10,-1000..1000] of boolean; i,m,n,j,k:longint;begin read(n,m); for i:=1 to n do  begin   for j:=1 to m do    read(a[i,j]);   readln;  end; f[1,1,a[1,1]]:=true;  for i:=1 to n do   for j:=1 to m do   begin    if f[i,j-1,0] then f[i,j,a[i,j]]:=true;    if f[i-1,j,0] then f[i,j,a[i,j]]:=true;   end; for i:=1 to n do  for j:=1 to m do   begin    for k:=-1000 to 1000 do    begin     if f[i-1,j,k] then f[i,j,k+a[i,j]]:=true;     if f[i,j-1,k] then f[i,j,k+a[i,j]]:=true;    end;    end;    for i:=1 to 100 do     if f[n,m,i] then     begin      write(i);      halt;     end;    write(-1);end.