题目描述
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径,使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
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:
观察下面的数字金字塔。
写一个程序来查找从最高点到底部任意处结束的路径,使路径经过数字的和最大。每一步可以走到左下方的点也可以到达右下方的点。
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
var
a:Array[0..1001,0..1001] of longint;//读入需要数组
f:array[0..1001]of longint;//记录下每一次行走后产生的结果
i,j,n,k,max,x,y:Longint;
begin
read(n);
for i:=1 to n do
begin
for j:=1 to i do
read(a[i,j]);
readln;
end;
f[1]:=a[1,1];//因为从第一个开始,所以第一个一定是最前面的那个数
for i:=2 to n do
begin
for j:=i downto 1 do
begin
x:=a[i,j]+f[j];代表下面的数
y:=a[i,j]+f[j-1];代表右边的数
if x>y then max:=x
else max:=y;//记录下最符合题意(最大数)的路径
f[j]:=max;//记录这一次的结果并覆盖上一次
max:=0;//确保max的值不会累加
end;
end;
max:=0;//确保输出
for i:=1 to n do
if max<f[i] then max:=f[i];//运用打擂台比较
write(max);
readln;
end.