2017.1.15【初中部 】普及组模拟赛C组 小x的数列 题解

原题：

http://172.16.0.132/junior/#contest/show/1365/0

题目描述：

小x有一个由n个整数组成的数列。他现在可以任意交换数列中两个相邻的元素。小x想知道，能否通过一些操作，使得任意两个相邻的元素不同。

输入：

第一行一个整数t，表示测试数据的组数。
每组数据第一行包含一个整数n，表示数列中元素的个数。第二行包含n个整数a1，a2，…，an，表示数列中元素的初始状态。

输出：

输出t行，对于第i组测试数据，如果小x能够得到他所想要的序列，输出“YES”，否则输出“NO”（不包含引号）。

样例输入：

3
1
1
3
1 1 2
4
7 7 7 7

样例输出：

YES
YES
NO

数据范围限制：

对于100%的数据：1<=t<=100,1<=n<=100,1<=ai<=1000。

分析：

找到每种元素的个数，如果这个元素的个数大于(n+1) div 2就输出NO，否则输出YES

实现：

label x;
var
        b:boolean;
        w,i,j,t,n:longint;
        a:array[0..107]of longint;
        bz:array[0..1007]of longint;
begin
        assign(input,'permutation.in');reset(input);
        assign(output,'permutation.out');rewrite(output);
        readln(t);
        for i:=1 to t do
        begin
                readln(n);
                if n mod 2=0 then w:=n div 2
                else w:=n div 2+1;
                for j:=1 to n do
                begin
                        read(a[j]);
                        inc(bz[a[j]]);
                        if bz[a[j]]>w then
                        begin
                                writeln('NO');
                                goto x;
                        end;
                end;
                writeln('YES');
                x:
                readln;
                fillchar(bz,sizeof(bz),0);
        end;
        close(input);close(output);
end.