[vijos P1035] 贪婪的送礼者

为何我要做此等弱智题，只因我太久不码代码，心有所虚…

明天的任务是，做些难题，累了就理房间，实在不行就睡觉，不要做别的事情w 目测自己做不到呢OAO

program vijos_p1035;
var namelist:array[..] of string;
    ans:array[..] of integer;
    n,i,j,ni,money:integer;
    s,ss:string;
function loc(st:string):integer;
var i:integer;
begin
  i:=;
  while namelist[i]<>st do inc(i);
  exit(i);
end;
begin {main}
  readln(n);
  for i:= to n do
    readln(namelist[i]);
  for j:= to n do
    begin
      readln(s);
      readln(money,ni);
      for i:= to ni do
        begin
          readln(ss);
          inc(ans[loc(ss)],money div ni);
        end;
      if ni<> then dec(ans[loc(s)],money div ni * ni);
    end;
  for i:= to n do
    writeln(namelist[i],' ',ans[i]);
end.

贪婪的送礼者

测试数据 #0: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #1: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #2: Accepted, time = 15 ms, mem = 744 KiB, score = 10

测试数据 #3: Accepted, time = 15 ms, mem = 744 KiB, score = 10

测试数据 #4: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #5: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #6: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #7: Accepted, time = 0 ms, mem = 748 KiB, score = 10

测试数据 #8: Accepted, time = 0 ms, mem = 744 KiB, score = 10

测试数据 #9: Accepted, time = 0 ms, mem = 740 KiB, score = 10

Accepted, time = 30 ms, mem = 748 KiB, score = 100