1151. 【克罗地亚】pjesma (Standard IO)

题目描述

“Guess the song” 是一项在克罗地亚的年轻程序员中非常流行的游戏。它是一种集技能、智慧、耐性于一体的游戏。这个游戏给玩游戏的人放音乐，游戏者的目标是竟可能快地猜这首歌的歌名。
Mirko可能不是一个很好的程序员，但他是一个世界级的猜歌者。Mirko总是在专辑里的某首歌播放出至少一半歌词的时候猜出歌名。所有歌名的单词是唯一的（没有一个单词会出现一次或更多次）。
写一个程序，给出歌名和专辑名，看看Mirko在这首歌的哪个点上（在多少个单词之后）猜出歌名。

题解：

水成一x样，输入判断枚举，注意超过一半。

代码：

var
  a:array[1..10000] of string;
  n,m,i,j:longint;
  sum,ss,t:longint;
  s:string;
begin
  readln(n);sum:=0;
  if n mod 2<>0 then t:=n div 2+1
  else t:=n div 2;
  for i:=1 to n do
    readln(a[i]);
  readln(m);
  for i:=1 to m do
    begin
      readln(s);
      for j:=1 to n do
        if s=a[j] then
          begin
            a[j]:='';
            sum:=sum+1;
          end;
      if (sum>=t)and(ss=0) then ss:=i;
    end;
  writeln(ss);
end.