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.