Pagini recente » Cod sursa (job #2234694) | Cod sursa (job #3131937) | Cod sursa (job #2845975) | Cod sursa (job #696799) | Cod sursa (job #479627)
Cod sursa(job #479627)
program ssm;
var max,s,n,stp,st,opr,incep,i,nr:longint;f,g:text;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
read(f,s);max:=s;st:=1;stp:=1;incep:=1;opr:=1;
for i:=2 to n do begin
read(f,nr);
if s+nr>=nr then begin
s:=s+nr;stp:=i;end
else begin
s:=nr;st:=i;stp:=i;end;
if s>max then begin
max:=s;incep:=st;opr:=stp;end;
end;
write(g,max,' ',incep,' ',opr);
close(f);close(g);
end.