Cod sursa(job #479627)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 24 august 2010 16:47:34
Problema Subsecventa de suma maxima Scor 75
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
program ssm;
var max,s,n,stp,st,opr,incep,i,nr:longint;f,g:text;
begin
   assign(f,'ssm.in');reset(f);
   assign(g,'ssm.out');rewrite(g);
     readln(f,n);
     read(f,s);max:=s;st:=1;stp:=1;incep:=1;opr:=1;
      for i:=2 to n do begin
       read(f,nr);
       if s+nr>=nr  then begin
        s:=s+nr;stp:=i;end
                    else begin
        s:=nr;st:=i;stp:=i;end;
       if s>max then begin
        max:=s;incep:=st;opr:=stp;end;
      end;
      write(g,max,' ',incep,' ',opr);
      close(f);close(g);
end.