分數線劃定pascal程式

2021-07-26 00:06:09 字數 695 閱讀 6193

題意

把分數從大到小排序,同分數的,學號小的排前。

找出分數大於等於,第m*1.5(向下取整)名的分數,的人。

分析開始先排序,再乙個乙個找

varn,m,i,j,tj:longint;

k,s:array[0..10000]of longint;

t:real;

begin

readln(n,m);

for i:=1 to n do

readln(k[i],s[i]);

for i:=1 to n-1 do

begin

for j:=i+1 to n do

begin

if s[i]k[j]) then

begin

k[0]:=k[i];k[i]:=k[j];k[j]:=k[0];

end;

end;

end;

t:=s[trunc(m*1.5)];

tj:=0;

for i:=1 to n do

if s[i]>=t then inc(tj);

writeln(s[tj],' ',tj);

for i:=1 to tj do

writeln(k[i],' ',s[i]);

close(input);

close(output);

end.

分數線劃定

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

分數線劃定

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

分數線劃定

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