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.