vijos1059题解

题目：

XC的儿子小XC最喜欢玩的游戏用积木垒漂亮的城堡。城堡是用一些立方体的积木垒成的，城堡的每一层是一块积木。小XC是一个比他爸爸XC还聪明的孩子，他发现垒城堡的时候，如果下面的积木比上面的积木大，那么城堡便不容易倒。所以他在垒城堡的时候总是遵循这样的规则。

小XC想把自己垒的城堡送给幼儿园里漂亮的女孩子们，这样可以增加他的好感度。为了公平起见，他决定把送给每个女孩子一样高的城堡，这样可以避免女孩子们为了获得更漂亮的城堡而引起争执。可是他发现自己在垒城堡的时候并没有预先考虑到这一点。所以他现在要改造城堡。由于他没有多余的积木了，他灵机一动，想出了一个巧妙的改造方案。他决定从每一个城堡中挪去一些积木，使得最终每座城堡都一样高。为了使他的城堡更雄伟，他觉得应该使最后的城堡都尽可能的高。

任务：
请你帮助小XC编一个程序，根据他垒的所有城堡的信息，决定应该移去哪些积木才能获得最佳的效果。

基础DP。 

f[i]表示是否能到达第I的高度。map[i]则来记录每个高度有几个城堡能够达到。

var
  f:array[0..10000] of boolean;
  map:array[0..10000] of longint;
  a:array[0..100] of longint;
  l,n,i,j,ch,k:longint;
begin
  readln(n);
  for l:=1 to n do
    begin
      read(ch);
      k:=0;
      while ch<>-1 do
        begin
          inc(k);
          a[k]:=ch;
          read(ch);
        end;
      fillchar(f,sizeof(f),false);
      f[0]:=true;
      for i:=1 to k do
        for j:=10000-a[i] downto 0do
          if f[j] thenf[j+a[i]]:=true;
      for i:=0 to 10000 do
        if f[i] then inc(map[i]);
    end;
  for i:=10000 downto 0 do
    if map[i]=n then
      begin
        writeln(i);
        halt;
      end;
end.