Cod sursa(job #559714)

Utilizator promix2012petruta andrei promix2012 Data 17 martie 2011 23:59:56
Problema Subsecventa de suma maxima Scor 70
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program sub_max;
const fi='ssm.in';
      fo='ssm.out';
var max,min,a,b,c,d,idx,beg,en,n,i,sum:longint;
f,g:text;
s:array[1..6000000] of longint;
begin
assign(f,fi);
reset(f);
assign(g,fo);
rewrite(g);
read(f,n);
for i:=1 to n do
read(f,s[i]);
for i:=1 to n do
begin
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.