NKCABLE - Nối mạng
Tác giả: RR
Ngôn ngữ: Pascal
uses math;
var
n,i:longint;
a,f:array[1..50000] of longint;
begin
read(n);
for i:=2 to n do
read(a[i]);
f[2]:=a[2];
f[3]:=a[2]+a[3];
for i:=4 to n do
f[i]:=min(f[i-1]+a[i],f[i-2]+a[i]);
writeln(f[n]);
end.