求Free Pascal程序
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/06 09:56:26
求Free Pascal程序
问题如下:
第一行输入一个正整数n(1
问题如下:
第一行输入一个正整数n(1
var
a,f:array[0..1001,0..1001] of longint;
n,i,j:longint;
function max(a,b:longint):longint;
begin
max:=a;
if a<b then max:=b;
end;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
read(a[i,j]);
fillchar(f,sizeof(f),0);
for i:=n downto 1 do
for j:=1 to i do
f[i,j]:=a[i,j]+max(f[i+1,j],f[i+1,j+1]);
writeln(f[1,1]);
end.
a,f:array[0..1001,0..1001] of longint;
n,i,j:longint;
function max(a,b:longint):longint;
begin
max:=a;
if a<b then max:=b;
end;
begin
readln(n);
for i:=1 to n do
for j:=1 to i do
read(a[i,j]);
fillchar(f,sizeof(f),0);
for i:=n downto 1 do
for j:=1 to i do
f[i,j]:=a[i,j]+max(f[i+1,j],f[i+1,j+1]);
writeln(f[1,1]);
end.