Pagini recente » Cod sursa (job #3276874) | Cod sursa (job #1207983) | Cod sursa (job #44484) | Cod sursa (job #2899322) | Cod sursa (job #394779)
Cod sursa(job #394779)
var f,g:text;
a,b:array[-10..100010]of longint;
n,i,j,sol:longint;
function max(c,d:longint):longint;
begin
if c>d then max:=c
else
max:=d;
end;
begin
assign(f,'oo.in');
reset(f);
readln(f,n);
for i:=1 to n do begin
read(f,a[i]);
b[i]:=0;
end;
close(f);
for i:=0 downto -10 do
a[i]:=a[n+1];
sol:=-maxlongint;
for i:=3 downto 1 do begin
for j:=i to n-3+i do
b[j]:=max(b[j-1],b[j-3]+a[j-1]+a[j]);
sol:=max(sol,b[j]);
end;
assign(g,'oo.out');
writeln(g);
writeln(g,sol);
close(g);
end.