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.

Download