社区讨论

大神见笑了

yyuzoe
P1781宇宙总统参与者 5已保存回复 5

讨论操作

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

当前回复
5 条
当前快照
1 份
快照标识符
@mi4egbk6
此快照首次捕获于
2025/11/18 17:57
4 个月前
此快照最后确认于
2025/11/18 17:57
4 个月前
查看原帖
CPP
var
  a,b:array[1..10000000] of longint;
  n,t,i,j,x:longint;
begin
  read(n);
  for i:=1 to n do begin
  read(x);
  a[i]:=i;
  b[i]:=x;
  end;
  for i:=n downto 2 do
  for j:=1 to i-1 do
  if (b[j]<b[j+1]) or ((b[j]=b[j+1]) and(a[j]>a[j+1])) then
  begin
  t:=b[j];b[j]:=b[j+1];b[j+1]:=t;
  t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
  end;
  j:=1;
  writeln(a[j]);
  write(b[j]);
end.

回复

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

正在加载回复...