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.