分數線劃定

題目：題目描述

世博會志願者的選拔工作正在 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）。資料保證選手的報名號各

不相同。

輸出格式：

第一行，有兩個整數，用乙個空格隔開，第乙個整數表示面試分數線；第二個整數為

進入面試的選手的實際人數。

從第二行開始，每行包含兩個整數，中間用乙個空格隔開，分別表示進入面試的選手

的報名號和筆試成績，按照筆試成績從高到低輸出，如果成績相同，則按報名號由小到大的

順序輸出。

思路：先排序，在選定m*1.5，判斷。

**：

var a,b:array[0..5001] of longint;

n,m,i,j,t:longint;
begin
read(n,m);
m:=m+m div
2; for i:=1
to n do
read(b[i],a[i]);
for i:=1
to n-1
dofor j:=i+1
to n do
if (a[i]or(a[i]=a[j])and(b[i]>b[j]) then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
t:=b[i]; b[i]:=b[j]; b[j]:=t;
end;
while a[m]=a[m+1] do
begin
inc(m);
end;
writeln(a[m],' ',m);
for i:=1
to m do
writeln(b[i],' ',a[i]);
end.

分數線劃定

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

分數線劃定

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

分數線劃定

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