一道Free Pascal
一道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
最佳回答
外向的冬日
2026-04-08 03:10:55
varI,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 doIf a[i]>n/2 then break;If a[i]>n/2 then writeln(I)Else writeln('no person');End。
最新回答共有2条回答
-
2026-04-08 03:10:55火星上的酒窝
回复varI,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 doIf a[i]>n/2 then break;If a[i]>n/2 then writeln(I)Else writeln('no person');End。
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动，从释放开始计时，则物体在前2s内的平均速度为______m/s，物体下落2m时的速度大小为______m/s．
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解（二）设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡