Cod sursa(job #300721)

Utilizator mlazariLazari Mihai mlazari Data 7 aprilie 2009 17:15:13
Problema Subsecventa de suma maxima Scor 95
Compilator fpc Status done
Runda Arhiva educationala Marime 0.56 kb
Program Ssm;
{ Subsecventa de suma maxima }
var f : text;
    n,k,i, s,incep, smax,incmax,sfmax : longint;

begin
  assign(f,'ssm.in');
  reset(f);
  readln(f,n);
  read(f,k);
  smax:=k;
  incmax:=1;
  sfmax:=1;
  s:=k;
  incep:=1;
  for i:=2 to n do begin
    read(f,k);
    if s>0 then s:=s+k
    else begin
      s:=k;
      incep:=i;
    end;
    if s>smax then begin
      smax:=s;
      incmax:=incep;
      sfmax:=i;
    end;
  end;
  close(f);

  assign(f,'ssm.out');
  rewrite(f);
  write(f,smax,' ',incmax,' ',sfmax);
  close(f);
end.