RQNOJ 172 聖誕樹（dp）

題目：這棵樹有n層，每層有一件禮物，每件禮物都有一個價值，有的禮物還有一些連結線，與下層的禮物相連，領取禮物的規則如下：任選一件禮物，它的下面如果有連結線，則可以繼續取它連結的禮物，以此類推，直至取到沒有連結線的禮物才結束，你如果是第一個去取，怎樣取才能獲得最大的價值呢？

var           //Pascal不是重點
a,b:array[0..100]of longint;
map:array[0..100,0..100]of longint;
i,j,n,max,ans,x:longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
while not eoln do 
begin 
     read(x);
     map[i,x]:=1;                   //連接
end;
readln;                           //勿忘
end;
b[n]:=a[n];
ans:=b[n];
for i:=n-1 downto 1do                      
begin
          max:=0;
          for j:=i+1 to n do
                 if (map[i,j]=1)and(b[j]>max) then max:=b[j];              //dp
          b[i]:=max+a[i];
          if b[i]>ans then ans:=b[i];
end;
writeln(ans);
end.