NOIP2009普及组 分数线划定

题目描述

世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对

所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根

据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试分数线为排名第m*150%

（向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有

选手。

现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成

绩。

解析

  先排序然后算出150%的计划录取人数可得出分数线，用while算上同分的人即可

代码

const
  maxn=5005;
var
  a,b:array[0..maxn] of longint;
  n,m,ans,i:longint;


procedure qsort(l,r:longint);
var
  i,j,k,k1:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  k:=b[(l+r) div 2];
  k1:=a[(l+r) div 2];
  repeat
    while (b[i]>k) or ((b[i]=k) and (a[i]<k1)) do inc(i);
    while (b[j]<k) or ((b[j]=k) and (a[j]>k1)) do dec(j);
    if i<=j then
      begin
        a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
        b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
        inc(i);dec(j);
      end;
  until i>j;
  qsort(l,j);qsort(i,r);
end;


begin
  readln(n,m);
  for i:=1 to n do
    readln(a[i],b[i]);
  qsort(1,n);
  ans:=trunc(m*1.5);
  while (b[ans]=b[ans+1]) and (ans+1<=n) do inc(ans);
  writeln(b[ans],' ',ans);
  for i:=1 to ans do
    writeln(a[i],' ',b[i]);
end.