Cod sursa(job #261194)

Utilizator batracorina dijmarescu batra Data 17 februarie 2009 22:27:14
Problema Subsecventa de suma maxima Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.7 kb
const nmax=6000000;
var f,g:text;
var
i,n,j,s,max,x,p,r,o:longint;
begin
assign(f,'ssm.in');
reset(f);
assign(g,'ssm.out');
rewrite(g);
readln(f,n);
s:=-200000000;
r:=1;
for i:=1 to n do
  begin
  read(f,x);
  if s+x<x then begin
         if s>max then
                 begin
                 p:=r;
                 o:=i-1;
                 max:=s;
                 end;
         s:=x;
         r:=i;
         end
         else
            begin
            s:=s+x;
            if s>max then
                begin
                  p:=r;
                  o:=i;
                  max:=s;
                  end;
            end;
  end;
  writeln(g,max,' ',p,' ',o);
close(g);
end.