Cod sursa(job #742136)
Utilizator | Cont vechi Buzu_Tudor_Ro | Data | 28 aprilie 2012 18:13:28 |
---|---|---|---|
Problema | Subsecventa de suma maxima | Scor | 65 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.84 kb |
Program p2_dinamic;
var fi,fo : text;
max,start,finis,i,n,sum,poz,a : longint;
begin
assign(fi,'ssm.in'); reset(fi); readln(fi,n);
assign(fo,'ssm.out'); rewrite(fo);
read(fi,sum); max:=sum;
poz:=1; finis:=1;
for i:=2 to n do begin
read(fi,a);
if sum+a>a then sum:=sum+a
else begin
sum:=a;
poz:=i;
end;
if sum>max then begin
max:=sum;
start:=poz;
finis:=i;
end;
end;
write(fo,max,' ',start,' ',finis);
close(fi); close(fo);
end.