社区讨论

求大神

yyuzoe
P1068[NOIP 2009 普及组] 分数线划定参与者 4已保存回复 3

讨论操作

快速查看讨论及其快照的属性，并进行相关操作。

当前回复
3 条
当前快照
1 份
快照标识符
@mi4enjcw
此快照首次捕获于
2025/11/18 18:02
4 个月前
此快照最后确认于
2025/11/18 18:02
4 个月前
查看原帖
CPP
var
  n,i,t,j,m,l:longint;
  a,k:array[1..100000] of longint;
begin
  read(m,n);
  for i:=1 to m do read(k[i],a[i]);
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[i]>a[j] then begin
  t:=a[i];a[i]:=a[j];a[j]:=t;
  t:=k[i];k[i]:=k[j];k[j]:=t;
  end;
  if n*1.5>trunc(n*1.5) then l:=trunc(n)+1;
  j:=l;
  writeln(a[j],' ',l);
  for i:=1 to m-1 do
  writeln(k[i],' ',a[i]);
  write(k[l],' ',a[l]);
end.

回复

共 3 条回复，欢迎继续交流。

正在加载回复...