描述 Description
世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才,A 市对
所有报名的选手进行了笔试,笔试分数达到面试分数线的选手方可进入面试。面试分数线根 据计划录取人数的150%划定,即如果计划录取m名志愿者,则面试分数线为排名第m*150% (向下取整)名的选手的分数,而最终进入面试的选手为笔试成绩不低于面试分数线的所有 选手。 现在就请你编写程序划定面试分数线,并输出所有进入面试的选手的报名号和笔试成 绩。 |
输入格式 InputFormat
输入文件名为 score.in。
第一行,两个整数n,m(5 ≤ n ≤ 5000,3 ≤ m ≤ n),中间用一个空格隔开,其 中n 表示报名参加笔试的选手总数,m 表示计划录取的志愿者人数。输入数据保证m*150% 向下取整后小于等于n。 第二行到第 n+1 行,每行包括两个整数,中间用一个空格隔开,分别是选手的报名号k (1000 ≤ k ≤ 9999)和该选手的笔试成绩s(1 ≤ s ≤ 100)。数据保证选手的报名号各 不相同。 |
输出格式 OutputFormat
输出文件 score.out。
第一行,有两个整数,用一个空格隔开,第一个整数表示面试分数线;第二个整数为 进入面试的选手的实际人数。 从第二行开始,每行包含两个整数,中间用一个空格隔开,分别表示进入面试的选手 的报名号和笔试成绩,按照笔试成绩从高到低输出,如果成绩相同,则按报名号由小到大的 顺序输出。 |
样例输入 SampleInput [复制数据]6 3 1000 90 3239 88 2390 95 7231 84 1005 95 1001 88 |
样例输出 SampleOutput [复制数据]88 5 1005 95 2390 95 1000 90 1001 88 3239 88 |
时间限制 TimeLimitation
各个测试点1s
|
来源 Source
NOIP2009普及组 第二题
|
1 //Noip 2009 Problem 2 score
2 //Oier:Shylocks
3 type n=record
4 k,s:integer;
5 end;
6 var a:array[1..5000]of n;
7 nn,m,i,score:integer;
8 Procedure swap(var a,b:integer);
9 var temp:longint;
10 begin
11 temp:=a;
12 a:=b;
13 b:=temp;
14 end;
15 Procedure qsort(l,r:longint);
16 var i,j,mid,mid2:integer;
17 begin
18 i:=l;
19 j:=r;
20 mid:=a[(i+j) div 2].s;
21 mid2:=a[(i+j) div 2].k;
22 repeat
23 while(a[i].s<mid)or (a[i].s=mid)and(a[i].k>mid2)do inc(I);
24 while(a[j].s>mid)or (a[j].s=mid)and(a[j].k<mid2)do dec(j);
25 if i<=j then
26 begin
27 swap(a[i].s,a[j].s);
28 swap(a[i].k,a[j].k);
29 inc(i);dec(j);
30 end;
31 until i>j;
32 if i<r then qsort(i,r);
33 if l<j then qsort(l,j);
34 end;
35 begin
36 readln(nn,m);
37 score:=trunc(m*1.5);
38 //writeln(score);
39 for i:=1 to nn do readln(a[i].k,a[i].s);
40 qsort(1,nn);
41 while(a[nn-score+1].s=a[nn-score].s)do inc(score);
42 writeln(a[nn-score+1].s,' ',score);
43 for i:=nn downto nn-score+1 do writeln(a[i].k,' ',a[i].s);
44 end.