分數線劃定

題目描述

世博會志願者的選拔工作正在 a 市如火如荼的進行。為了選拔最合適的人才，a 市對所有報名的選手進行了筆試，筆試分數達到面試分數線的選手方可進入面試。面試分數線根據計畫錄取人數的150%劃定，即如果計畫錄取m名志願者，則面試分數線為排名第m*150%（向下取整）名的選手的分數，而最終進入面試的選手為筆試成績不低於面試分數線的所有選手。

現在就請你編寫程式劃定面試分數線，並輸出所有進入面試的選手的報名號和筆試成績。

輸入輸出格式

輸入格式：

第一行，兩個整數 n，m（5 ≤ n ≤ 5000，3 ≤ m ≤ n），中間用乙個空格隔開，其中 n 表示報名參加筆試的選手總數，m 表示計畫錄取的志願者人數。輸入資料保證 m*150%向下取整後小於等於 n。

第二行到第 n+1 行，每行包括兩個整數，中間用乙個空格隔開，分別是選手的報名號 k（1000 ≤ k ≤ 9999）和該選手的筆試成績 s（1 ≤ s ≤ 100）。資料保證選手的報名號各不相同。

輸出格式：

第一行，有兩個整數，用乙個空格隔開，第乙個整數表示面試分數線；第二個整數為進入面試的選手的實際人數。

從第二行開始，每行包含兩個整數，中間用乙個空格隔開，分別表示進入面試的選手的報名號和筆試成績，按照筆試成績從高到低輸出，如果成績相同，則按報名號由小到大的順序輸出。

輸入輸出樣例

輸入樣例#1：

6 3

1000 90

3239 88

2390 95

7231 84

1005 95

1001 88

輸出樣例#1：

88 5

1005 95

2390 95

1000 90

1001 88

3239 88

說明樣例說明

m*150% = 3*150% = 4.5，向下取整後為 4。保證 4 個人進入面試的分數線為 88，但因為 88有重分，所以所有成績大於等於 88 的選手都可以進入面試，故最終有 5 個人進入面試。

程式如下：

var
a,b:array [0..10001] of longint;
i,j,n,m,s,p:longint;
procedure
qsort
(l,r:longint);
var  mid,midx:longint;
begin
i:=l; j:=r;
midx:=a[(i+j) div
2];  mid:=b[(i+j) div
2];  while ido
begin
while (b[i]>mid)or((b[i]=mid)and(a[i]do inc(i);
while (b[j]or((b[j]=mid)and(a[j]>midx)) do dec(j);
if i<=j then
begin
b[0]:=b[i]; b[i]:=b[j]; b[j]:=b[0];
a[0]:=a[i]; a[i]:=a[j]; a[j]:=a[0];
inc(i); dec(j);
end;
end;
if lthen qsort(l,j);
if ithen qsort(i,r);
end;
begin
readln(n,m);
for i:=1
to n do
readln(a[i],b[i]);
qsort(1,n);
s:=trunc(m*1.5);
p:=b[s];
while b[s+1]>=p do inc(s);
writeln(p,' ',s);
for i:=1
to s do
writeln(a[i],' ',b[i]);
end.

分數線劃定

分數線劃定

分數線劃定

分數線劃定

相關推薦