题目：
题目描述
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
7 3 8 8 1 0
2 7 4 4
4 5 2 6 5
在上面的样例中,从7 到 3 到 8 到 7 到 5 的路径产生了最大
输入输出格式
输入格式：
第一个行包含 R(1<= R<=1000) ,表示行的数目。
后面每行为这个数字金字塔特定行包含的整数。
所有的被供应的整数是非负的且不大于100。
输出格式：
单独的一行,包含那个可能得到的最大的和。
作者思路：dp，和01背包差不多
代码：
var a:array[0..1001,0..1001] of longint;
f:array[0..1001] of longint;
n,i,j,ans:longint;
function max(a,b:longint):longint;
begin
if a>b then exit(a) else exit(b);
end;
begin
read(n);
for i:=1 to n do
for j:=1 to i do read(a[i,j]);
f[1]:=a[1,1];
for i:=2 to n do
for j:=i downto 1 do
f[j]:=max(f[j],f[j-1])+a[i,j];
for i:=1 to n do
if f[i]>ans then ans:=f[i];
write(ans);
end.
