Cod sursa(job #300003)

Utilizator dyenutzaBalutoiu Diana dyenutza Data 7 aprilie 2009 10:37:16
Problema Subsecventa de suma maxima Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.67 kb
VAR f:text;
    lung,x,suma,smax,pi,pf,pozi,n,i:longint;
BEGIN
assign(f,'ssm.in');
reset(f);
readln(f,n);
read(f,x);
suma:=x;
smax:=suma;
pi:=1;
lung:=1;

for i:=2 to n do begin
    read(f,x);
    if suma<0 then begin
                   lung:=1;
                   suma:=x;
                   pi:=i;
                   end
    else begin
         suma:=suma+x;
         inc(lung);
         end;
    if suma>smax then begin
                      pozi:=pi;
                      smax:=suma;
                      pf:=pozi+lung-1;
                      end;
    end;
close(f);
assign(f,'ssm.out');
rewrite(f);
write(f,smax,' ',pozi,' ',pf);
close(f);
end.