Cod sursa(job #281388)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 14 martie 2009 19:27:09
Problema Subsecventa de suma maxima Scor 95
Compilator fpc Status done
Runda Arhiva educationala Marime 0.9 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.