比赛代码 - COGS

比赛	noip2016普及练习2	评测结果	MMMMMMMMMM
题目名称	谁是卧底	最终得分	0
用户昵称	bb	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2016-11-07 20:09:06

显示代码纯文本

var
a:array[0..1000000000]of integer;
n,m,i,j,k,max:longint;
begin
assign(input,'leader.in'); reset(input);
assign(output,'leader.out'); rewrite(output);
read(m,n);
for i:=1 to n do
begin
read(j);
inc(a[j]);
end;
for i:=1 to m do if max<a[i] then begin max:=a[i];j:=i;end;
k:=m div 2;
if max>k then write(j) else write(-1); 
close(input);
close(output); 
end.