子串的最大和 pascal
答案:1 悬赏:10 手机版
解决时间 2021-02-24 14:57
- 提问者网友：兔牙战士
- 2021-02-24 00:50
子串的最大和 pascal
最佳答案
- 五星知识达人网友：执傲
- 2021-02-24 01:26
直接给你写下程序吧var
a:array[1..100000] of integer;
n,i,ans,len,tmp,beg:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
tmp:=0;
ans:=0;
len:=0;
beg:=0;
for i:=1 to n do
begin
if tmp+a[i]>ans then
begin
ans:=tmp+a[i];
len:=i-beg;
end
else if (tmp+a[i]=ans) and (i-beg>len) then
len:=i-beg;
if tmp+a[i]<0 then
begin
beg:=i;
tmp:=0;
end
else tmp:=tmp+a[i];
end;
writeln(ans);
end.
a:array[1..100000] of integer;
n,i,ans,len,tmp,beg:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
tmp:=0;
ans:=0;
len:=0;
beg:=0;
for i:=1 to n do
begin
if tmp+a[i]>ans then
begin
ans:=tmp+a[i];
len:=i-beg;
end
else if (tmp+a[i]=ans) and (i-beg>len) then
len:=i-beg;
if tmp+a[i]<0 then
begin
beg:=i;
tmp:=0;
end
else tmp:=tmp+a[i];
end;
writeln(ans);
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯