Pagini recente » Cod sursa (job #996768) | Diferente pentru problema/necromancer intre reviziile 5 si 7 | Cod sursa (job #681542) | Borderou de evaluare (job #1708840) | Cod sursa (job #742144)
Cod sursa(job #742144)
Program p2_dinamic;
var fi,fo : text;
max,start,finis,i,n,sum,a : longint;
begin
assign(fi,'ssm.in'); reset(fi); readln(fi,n);
assign(fo,'ssm.out'); rewrite(fo);
sum:=-1 shl 21; max:=sum;
for i:=1 to n do begin
read(fi,a);
if sum+a>=a then begin
sum:=sum+a;
inc(finis);
end
else if a>sum then begin
sum:=a;
start:=i;
finis:=i;
end;
if sum>max then begin
max:=sum;
start:=i;
finis:=i;
end;
end;
write(fo,max,' ',start,' ',finis);
close(fi); close(fo);
end.