Pagini recente » Cod sursa (job #2491251) | Cod sursa (job #1372174) | Cod sursa (job #2668869) | Cod sursa (job #1518466) | Cod sursa (job #686367)
Cod sursa(job #686367)
//Porgramare dinamica
var v1, v2, n, i, x, y, z, a, b, aa, bb, smax:longint;
f, g:text;
buf1, buf2:array [1.. 1 shl 17] of char;
begin
assign (f, 'ssm.in'); settextbuf (f, buf1); reset (f);
assign (g, 'ssm.out'); settextbuf (g, buf2); rewrite (g);
read (f, n); a:=1; b:=0;
for i := 1 to n do
begin
read (f, x);
if x > v1+x then begin v2:=x; a:=i; b:=i; end
else begin v2:=v1+x; inc (b); end;
if v2>smax then begin smax :=v2; aa:=a; bb:=b; end;
v1:=v2;
end;
writeln (g, smax, ' ', aa, ' ', bb);
close (f); close (g);
end.