Cod sursa(job #89013)

Utilizator silvia_the_bestSilvia Pripoae silvia_the_best Data 5 octombrie 2007 12:18:09
Problema Secventa 2 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.81 kb
//secventa de suma maxima (nr intre -100 si 100)
var f,g:text;
    x,i,sc,smax:integer;
    p,u,pmax:integer;
begin
        assign(f,'input.in');
        reset(f);
        assign(g,'output.out');
        rewrite(g);
        sc:=0;
        smax:=-100;
        read(f,x);
        inc(i);
        p:=1;
        while not eof(f) do begin
                sc:=sc+x;
                if sc>smax then begin
                        smax:=sc;
                        pmax:=p;
                        u:=i;
                end;
                if  sc<=0 then begin
                        sc:=0;
                        p:=i+1;
                end;
                read(f,x);
                inc(i);
        end;
        writeln(g,smax);
        writeln(g,pmax,' ',u);
        close(f);
        close(g);
end.