一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争(打土豪、分田地)胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/20 10:25:45
![一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争(打土豪、分田地)胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得](/uploads/image/z/2479287-39-7.jpg?t=%E4%B8%80%E9%81%93Free+Pascal+%E5%85%83%E9%A6%96%E9%80%89%E4%B8%BE+%28leader.pas%2Fc%2Fcpp%29+%E6%9F%90%E5%B2%9B%E5%9B%BD%2C%E4%BA%BA%E6%B0%91%E6%AD%A6%E8%A3%85%E9%9D%A9%E5%91%BD%E6%96%97%E4%BA%89%EF%BC%88%E6%89%93%E5%9C%9F%E8%B1%AA%E3%80%81%E5%88%86%E7%94%B0%E5%9C%B0%EF%BC%89%E8%83%9C%E5%88%A9%E5%90%8E%2C%E5%86%B3%E5%AE%9A%E9%80%89%E4%B8%BE%E5%87%BA%E4%B8%80%E5%90%8D%E5%9B%BD%E5%AE%B6%E5%85%83%E9%A6%96.%E6%AD%A4%E5%B2%9B%E5%9B%BD%E5%85%B1%E6%9C%89n%E4%B8%AA%E4%BA%BA%E5%85%B7%E6%9C%89%E8%A2%AB%E9%80%89%E4%B8%BE%E6%9D%83%2C%E5%88%86%E5%88%AB%E7%94%A81%E5%88%B0n%E7%BC%96%E5%8F%B7%2C%E6%9C%80%E7%BB%88%E6%9C%89m%E4%B8%AA%E4%BA%BA%E5%8F%82%E4%B8%8E%E6%8A%95%E7%A5%A8.%E5%BE%97)
一道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.