一道PASCAL程序题 应该用动态规划的

来源：百度知道 编辑：UC知道 时间：2024/06/02 01:57:08
求一个数列中的连续若干个数和的最大值 用PASCAL编
希望能有详细程序
这题越想越复杂了......

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

var
a:array[1..100] of integer;
i,j,m,n,k:integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
k:=0;
for i:=1 to n do
begin
inc(k,a[i]);
if k<=0 then k:=0;
end;
writeln(k);
end.

var
i,j,k,m,n,ans:longint;
a:array[1..1000] of longint;
f:array[0..1000,0..1] of longint;
function max(pi,pn:longint):longint;
begin
if pi>pn then exit(pi);
exit(pn);
end;
begin
readln(n);
for i:= 1 to n do
read(a[i]);
for i:= 1 to n do
begin
f[i,0]:=0;