一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争(打土豪、分田地)胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
来源:学生作业学帮网 编辑:学帮网 时间:2024/07/07 20:47:02
一道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
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.
一道Free Pascal 元首选举 (leader.pas/c/cpp) 某岛国,人民武装革命斗争(打土豪、分田地)胜利后,决定选举出一名国家元首.此岛国共有n个人具有被选举权,分别用1到n编号,最终有m个人参与投票.得
free pascal常见语句
求几道 初学 free pascal
free pascal 黑洞6174
free pascal怎样产生随机数
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
一道Free Pascal的题目求100~1000之间能被7整除的数,每行输出10个.
free pascal 求最大公约数与最小公倍数
FREE PASCAL,输入两个数,求最小公倍数
free pascal 求最大公约数与最小公倍数
free pascal 圆锥体积运算源码
free pascal怎样算集合元素个数
variables 中文含义free pascal 版本
19世纪70年代,德国确立君主立宪制元首选举方式是什么
急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的
概括指出钱穆认为中国传统政治未能确立选举元首制度的外在客观条件是什么?
马来西亚的政治体制是什么,最高元首是什么官职?总统还是皇帝,是怎样产生的,选举还是世袭
free pascal 高精度计算谁有讲解给一下