NKCABLE - Nối mạng

Tác giả: flashmt

Ngôn ngữ: Pascal

var n,i:integer;
    a:array[0..25000] of longint;
    t:longint;

begin
     readln(n);
     readln(a[0]); a[1]:=a[0];
     for i:=2 to n-1 do
     begin
          readln(t);
          if a[i-1]>a[i-2] then a[i]:=a[i-2]+t
          else a[i]:=a[i-1]+t;
     end;
     write(a[n-1]);
end.

Download