Pagini recente » Cod sursa (job #507634) | Cod sursa (job #262322) | Cod sursa (job #645523) | Cod sursa (job #2905577) | Cod sursa (job #1089857)
{Subsecventa de suma maxinma}
program ssm_infoarena;
var n,s,sum,st,sf,aux,i:longint;
bestsum:int64;
f,g:text;
begin
assign(f,'ssm.in'); reset(f);
assign(g,'ssm.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
begin
read(f,s);
if sum<0 then
begin
sum:=s;
aux:=i;
end
else
sum:=sum+s;
if bestsum<sum then
begin
bestsum:=sum;
st:=aux;
sf:=i;
end;
end;
writeln(g,bestsum,' ',st,' ',sf);
close(f);
close(g);
end.