Question

Pascal题

一中信息组需要选一个组长。信息组一共有n个人，分别用1到n编号，其中m个人参与了投票。得票数过半（票数大于m div 2）的人将被选为组长。
输入数据将告知这m个人分别将票投给了谁，请统计出谁将担任一中信息组的组长。
输入数据
第一行两个数n和m。
第二行有m个数，这些数都是不超过n的正整数，表明这m个人的选择。
输出数据
输出将被选为组长的人。如果没有人的票数过半，请输出-1。
输入样例
7 4
7 7 2 7
输出样例
7
时间限制
各测试点1秒
内存限制
你的程序将被分配32MB的运行空间
数据规模
1<=n<=maxlongint
1<=m<=10000
//一定要注意数据量的问题；

Answer 1

var a,q,w:longint;
c:boolean;
begin
for a:=1000 to 9999 do begin
c:=true;
for q:=1 to 10 do if a mod q<>q-1 then c:=false;
if c then write(a:8);
end;
writeln;
end.

答案:2519 5039 7559