数字三角形（顺推一维版）

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

     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。

输出格式：
单独的一行,包含那个可能得到的最大的和。

输入输出样例
输入样例#1：
5
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5
输出样例#1：
30

说明
这题顺推方便在可以用一维数组，用的循环少。
推导方式：
7——10 15——18 16 15——20 25 20 19——24 30 27 26 24

---

var
  i,j,n,max:longint;
  a,f:array[0..1000]of longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to i do
      read(a[j]);
    for j:=i downto 1 do
      if f[j-1]<f[j] then f[j]:=f[j]+a[j]
        else f[j]:=f[j-1]+a[j];
  end;
  for i:=1 to n do
    if f[i]>max then max:=f[i];
  writeln(max);
end.