Pagini recente » Cod sursa (job #701209) | Cod sursa (job #1031604) | Cod sursa (job #1146801) | Cod sursa (job #2624410) | Cod sursa (job #89013)
Cod sursa(job #89013)
//secventa de suma maxima (nr intre -100 si 100)
var f,g:text;
x,i,sc,smax:integer;
p,u,pmax:integer;
begin
assign(f,'input.in');
reset(f);
assign(g,'output.out');
rewrite(g);
sc:=0;
smax:=-100;
read(f,x);
inc(i);
p:=1;
while not eof(f) do begin
sc:=sc+x;
if sc>smax then begin
smax:=sc;
pmax:=p;
u:=i;
end;
if sc<=0 then begin
sc:=0;
p:=i+1;
end;
read(f,x);
inc(i);
end;
writeln(g,smax);
writeln(g,pmax,' ',u);
close(f);
close(g);
end.