Pagini recente » Cod sursa (job #1349396) | Cod sursa (job #1908397) | Cod sursa (job #3280860) | Cod sursa (job #83025) | Cod sursa (job #300721)
Cod sursa(job #300721)
Program Ssm;
{ Subsecventa de suma maxima }
var f : text;
n,k,i, s,incep, smax,incmax,sfmax : longint;
begin
assign(f,'ssm.in');
reset(f);
readln(f,n);
read(f,k);
smax:=k;
incmax:=1;
sfmax:=1;
s:=k;
incep:=1;
for i:=2 to n do begin
read(f,k);
if s>0 then s:=s+k
else begin
s:=k;
incep:=i;
end;
if s>smax then begin
smax:=s;
incmax:=incep;
sfmax:=i;
end;
end;
close(f);
assign(f,'ssm.out');
rewrite(f);
write(f,smax,' ',incmax,' ',sfmax);
close(f);
end.