Question

一道Free Pascal 题目

元首选举
(leader.pas/c/cpp)
问题描述
某岛国，人民武装革命斗争（打土豪、分田地）胜利后，决定选举出一名国家元首。此岛国共有n个人具有被选举权，分别用1到n编号，最终有m个人参与投票。得票数过半人将被选为国家元首。
输入数据将告知这m个人分别将票投给了谁，请统计出谁在该岛国的选举中获胜。
输入数据
第一行两个数n和m。
第二行有m个数，这些数都是不超过n的正整数，表明这m个人的选择。
输出数据
输出将被选为元首的人的编号，若没有人得票数过半，则输出“no person”。
输入样例 4 5 3 1 2 3 3
输出样例 3

时间限制
各测试点1秒
内存限制
你的程序将被分配10MB的运行空间
数据规模
1<=n<=1000
50%的数据：1<=m<=10000；100%的数据：1<=m<=1,000,000

Answer 1

var
I,j,x,n,m:longint;a:array[1..10000]of longint;
Begin
Read(n,m);
For I:=1to m do
Begin read(x);a[x]:=[x]+1;end;
For I:=1 to n do
If a[i]>n/2 then break;

If a[i]>n/2 then writeln(I)
Else writeln('no person');
End.