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