洛谷 1068——分數線劃定（排序）

題目描述

世博會志願者的選拔工作正在 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 個人進入面試。

---

將成績從大到小排序，然後將m*1.5向下取整。判斷有沒有重分，有的話m+1，最後輸出。

---

程式碼如下：

var n,m,i,j,t:longint; a,b:array[1..5000]of longint;

begin
  readln(n,m);
  m:=trunc(m*1.5);
  for i:=1 to n do readln(a[i],b[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if (b[i]<b[j])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 b[m]=b[m+1] do m:=m+1;
  writeln(b[m],' ',m);
  for i:=1 to m do writeln(a[i],' ',b[i]);
end.