作业帮一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争（打土豪、分田地）胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 21:30:41
一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争（打土豪、分田地）胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
一道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
一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争（打土豪、分田地）胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
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.