Pagini recente » Istoria paginii runda/ag | Cod sursa (job #2969113) | Cod sursa (job #1067544) | Istoria paginii runda/budescu | Cod sursa (job #743352)
Cod sursa(job #743352)
Program secv_max;
var fi,fo:text;
i,n,j1,j2,max,sum,x,poz:longint;
begin
assign(fi,'ssm.in'); reset(fi); readln(fi,n);
assign(fo,'ssm.out'); rewrite(fo);
max:=-2147483648; sum:=0;
for i:=1 to n do begin
read(fi,x);
if sum<0 then begin sum:=x; j1:=i; end
else sum:=sum+x;
if max<sum then begin max:=sum; poz:=j1; j2:=i; end;
end;
write(fo,max,' ',poz,' ',j2);
close(fi); close(fo);
end.