Pagini recente » Cod sursa (job #978537) | Cod sursa (job #2168866) | Cod sursa (job #3167186) | Cod sursa (job #437426) | Cod sursa (job #411368)
Cod sursa(job #411368)
const infile='ssm.in';
outfile='ssm.out';
var n,s,i,ic,sf,k:longint;
best,suma:longint;
begin
assign(input,infile); reset(input); readln(n);
read(suma); k:=1;
best:=-maxlongint;
for i:=2 to n do begin
read(s);
if(suma+s>s)then inc(suma,s)
else begin suma:=s; k:=i; end;
if(best<suma)then begin best:=suma; ic:=k; sf:=i; end;
end;
close(input);
assign(output,outfile); rewrite(output);
write(best,' ',ic,' ',sf);
close(output);
end.