[0820]DP练习

JSOI B Test Problem 2

Code

 1 var n,i,j:longint;
 2     a:array[1..1000,1..1000]of longint;
 3 begin
 4     //while not eof do
 5     //begin
 6         readln(n);
 7         for i:=1 to n do
 8            for j:=1 to n do
 9               read(a[i,j]);
10         for i:=2 to n do a[i,1]:=a[i,1]+a[i-1,1];
11         for i:=2 to n do a[1,i]:=a[1,i]+a[1,i-1];
12         for i:=2 to n do
13           for j:=2 to n do
14              if a[i-1,j]<a[i,j-1]then
15                a[i,j]:=a[i,j]+a[i-1,j]
16              else a[i,j]:=a[i,j]+a[i,j-1];
17         writeln(a[n,n]);
18     //end;
19 end.

转载于:https://www.cnblogs.com/shy-/archive/2012/08/20/2648265.html