1151. 【克罗地亚】pjesma

最新推荐文章于 2021-05-05 16:30:09 发布

Yongqian-Peng

最新推荐文章于 2021-05-05 16:30:09 发布

阅读量1k

点赞数 2

分类专栏： TJ

本文链接：https://blog.csdn.net/mkmmkd/article/details/51852073

版权

TJ 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

T4：暴力，比赛打少了个=号所以没a。

var
    m,i,j,n,s,t,tot:longint;
    s1:array[0..60]of string;
    b:array[0..60]of boolean;
    s2:array[0..10010]of string;
begin
        readln(n);
    for i:=1 to n do
    begin
        readln(s1[i]);
    end;
    readln(m);
    for i:=1 to m do
    begin
        readln(s2[i]);
    end;
    for i:=1 to m do
    begin
        for j:=1 to n do
        begin
            if (s2[i]=s1[j]) then
            begin
                if b[j]=false then
                begin
                    inc(tot);
                    if tot>=n/2 then
                    begin
                        writeln(i);
                        halt;
                    end;
                    b[j]:=true;
                end;
                break;
            end;
        end;
    end;
end.