【克罗地亚】PJESMA

最新推荐文章于 2016-07-18 11:22:50 发布

勒布朗-詹姆斯-T-Z-X

最新推荐文章于 2016-07-18 11:22:50 发布

阅读量261

点赞数 1

CC 4.0 BY-SA版权

分类专栏：题解

本文链接：https://blog.youkuaiyun.com/tangzixuan121/article/details/51540589

题解专栏收录该内容

31 篇文章

订阅专栏

暴力出奇迹，就是暴力

var a,b:array[1..10000] of string;
p:array[1..50] of boolean;
n,m,i,j,l,tot:longint;
begin
      

        readln(n);
        for i:=1 to n do readln(a[i]);
        readln(m);
        for i:=1 to m do readln(b[i]);
        for i:=1 to m do
        begin
                for j:=1 to n do
                if not p[j] then
                begin
                         if a[j]=b[i] then
                         begin
                                inc(tot);
                                p[j]:=true;
                         end;
                         if tot>=n/2 then
                         begin
                                writeln(i);
                                halt;
                         end;
                end;
        end;
end.

。。。。。。