数字三角形 Number Triangles （一维数组+顺推）

题目描述

观察下面的数字金字塔。

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

         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。

输出格式：

单独的一行,包含那个可能得到的最大的和。

var
 s1:array[0..100]of longint;
 s2:array[0..100]of longint;
 i,j,n,s,t,max:longint;
begin
 read(n);
 for i:=1 to n do
  begin
   for j:=1 to i do
    read(s1[j]);
   readln;
  for j:=i downto 1 do
  begin
   if s1[j]+s2[j]>s1[j]+s2[j-1] then max:=s1[j]+s2[j]
                                            else max:=s1[j]+s2[j-1];
   s2[j]:=max;
   max:=0;
  end;
 end;
  max:=0;
 for i:=1 to n do
  if max<s2[i] then max:=s2[i];
 write(max);
end.