谁是组长

Description

SSL中学信息组需要选一个组长。信息组一共有n个人，分别用1到n编号，其中m个人参与了投票。得票数过半（票数大于m div 2）的人将被选为组长。 
输入数据将告知这m个人分别将票投给了谁，请统计出谁将担任SSL中学信息组的组长。 

Input

第一行两个数n和m。 
第二行有m个数，这些数都是不超过n的正整数，表明这m个人的选择。 

Output

输出将被选为组长的人。如果没有人的票数过半，请输出-1。

Sample Input

 

7 4 

7 7 2 7

 

Sample Output

 

7

 

Hint

数据规模 
1<=n<=maxlongint 
1<=m<=10000 

解题报告：先读入数据，用快排进行排序，然后进行统计，并用一个布尔型变量判断是否有人的票数过半，若有则输出是第几个人，若无则输出-1。

程序：

var

  a:array[0..10000] of longint;

  m,n,i,j:longint;

  f:boolean;

procedure qsort(l,r:longint);

  var

    i,j,k:longint;

  begin

    if l>=r then exit;

    i:=l;

    j:=r;

    k:=a[(i+j) div 2];

    repeat

      while a[i]

      while a[j]>k do dec(j);

      if i<=j then

        begin

          a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];

          inc(i);dec(j);

        end;

    until i>j;

    qsort(i,r);

    qsort(l,j);

end;

begin

  readln(m,n);

  for i:=1 to n do

    read(a[i]);

  qsort(1,n);

  i:=1;

  f:=true;

  while i<=n do

    begin

      j:=i;

      while (a[j+1]=a[i])and(j

      if j-i+1>n div 2 then

        begin

          write(a[i],' ');

          f:=false;

        end;

      i:=j+1;

    end;

  if f then writeln(-1);

end.

版权属于: Chris

原文地址: http://blog.sina.com.cn/s/blog_83ac6af80102v11l.html

转载时必须以链接形式注明原始出处及本声明。