数字金字塔

题目：

题目描述

观察下面的数字金字塔。

写一个程序来查找从最高点到底部任意处结束的路径，使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。

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.