Cod sursa(job #1089865)

Utilizator mariusadamMarius Adam mariusadam Data 21 ianuarie 2014 23:43:15
Problema Subsecventa de suma maxima Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.62 kb
{Subsecventa de suma maxinma}
program ssm_infoarena;
var n,s,sum,st,sf,aux,i,bestsum:longint;
    bufin,bufout:array[1..500000] of byte;
    f,g:text;
begin
 assign(f,'ssm.in'); reset(f);
 assign(g,'ssm.out'); rewrite(g);
 SetTextBuf(f,bufin);
 SetTextBuf(g,bufout);
 readln(f,n);
 sum:=0;
 bestsum:=-Maxlongint;
 for i:=1 to n do
  begin
   read(f,s);
   if sum<0 then
     begin
      sum:=s;
      aux:=i;
     end
    else
     sum:=sum+s;
    if bestsum<sum then
     begin
      bestsum:=sum;
      st:=aux;
      sf:=i;
     end;
  end;
 writeln(g,bestsum,' ',st,' ',sf);
 close(f);
 close(g);
end.