Cod sursa(job #307390)

Utilizator netedu_andreiFII Andrei Netedu netedu_andrei Data 24 aprilie 2009 09:00:54
Problema Subsecventa de suma maxima Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.32 kb
Raporteaza aceasta sursa 
var f,g:text;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
for i:=1 to n do
    read(f,a[i]);
for i:=1 to n do
    begin
    s:=a[i];
    for j:=i+1 to n do
        begin
        if s>smax then smax:=s;
        s:=s+a[j];
        end;
    end;
writeln(g,smax);
close(g);
end.