NKCABLE - Nối mạng
Tác giả: ll931110
Ngôn ngữ: Pascal
Program NKCABLE;
Const
input = '';
output = '';
Var
L,F: array[0..25000] of longint;
n: longint;
Procedure init;
Var
fi: text;
i: longint;
Begin
Assign(fi, input);
Reset(fi);
Readln(fi, n);
For i:= 1 to n - 1 do readln(fi, L[i]);
Close(fi);
End;
Procedure optimize;
Var
i: longint;
Begin
F[0]:= 0;
F[1]:= 1000000000;
For i:= 2 to n do
Begin
If F[i - 1] > F[i - 2] then F[i]:= F[i - 2]
else F[i]:= F[i - 1];
F[i]:= F[i] + L[i - 1];
End;
End;
Procedure printresult;
Var
fo: text;
Begin
Assign(fo, output);
Rewrite(fo);
Writeln(fo, F[n]);
Close(fo);
End;
Begin
init;
optimize;
printresult;
End.