Cod sursa(job #743356)
Utilizator | Cont vechi Buzu_Tudor_Ro | Data | 3 mai 2012 23:24:31 |
---|---|---|---|
Problema | Subsecventa de suma maxima | Scor | 70 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.57 kb |
Program p2;
var i,n,j1,j2,max : longint;
a,poz,c1,c2 : longint;
begin
assign(input,'ssm.in'); reset(input);
assign(output,'ssm.out'); rewrite(output);
readln(n);
read(a);
max:=a; j1:=1; j2:=1; c1:=max; c2:=max;
for i:=2 to n do begin
read(a);
if c1+a>=a then c2:=c1+a
else begin c2:=a; j1:=i; end;
if c2>max then begin max:=c2; j2:=i; poz:=j1; end;
c1:=c2;
end;
write(max,' ',poz,' ',j2);
end.