Pagini recente » Cod sursa (job #629322) | Cod sursa (job #2480922) | Cod sursa (job #235248) | Cod sursa (job #1665275) | Cod sursa (job #1089861)
{Subsecventa de suma maxinma}
program ssm_infoarena;
var n,s,sum,st,sf,aux,i,bestsum:longint;
f,g:text;
begin
assign(f,'ssm.in'); reset(f);
assign(g,'ssm.out'); rewrite(g);
readln(f,n);
sum:=0;
bestsum:=-Maxlongint;
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.