Pagini recente » Cod sursa (job #1841897) | Cod sursa (job #1993623) | Cod sursa (job #2811935) | Cod sursa (job #2340236) | Cod sursa (job #559723)
Cod sursa(job #559723)
program sub_max;
const fi='ssm.in';
fo='ssm.out';
var a,idx,beg,en,n,i,sum:longint;
f,g:text;
s:array[1..7000005] of int64;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n);
sum:=-maxint;
for i:=1 to n do
begin
read(f,s[i]);
if sum<0 then
begin
sum:=s[i];
idx:=i;
end
else
begin
sum:=sum+s[i];
if a<sum then
begin
a:=sum;
beg:=idx;
en:=i;
end;
end;
end;
write(g,a,' ',beg,' ',en);
close(f);
close(g);
end.