社区讨论

P1897 电梯里的爱情。。求大神指导

枍枍暮77
题目总版参与者 3已保存回复 6

讨论操作

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

当前回复
6 条
当前快照
1 份
快照标识符
@lo0u9c4s
此快照首次捕获于
2023/10/22 10:17
2 年前
此快照最后确认于
2025/11/18 18:49
4 个月前
查看原帖
CPP
var
 n,x,i,t,j,b:longint;
 a:array[1..100000] of longint;
begin
 readln(n);
 for i:=1 to n do
  read(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;
    end;
  for i:=1 to a[n] do
   begin
    b:=1;
    for j:=1 to n do
     begin
      if a[j]=i then
       if b=1 then
        begin
         b:=b+1;
         x:=x+6;
        end
        else x:=x+1;
      if a[j]>i then break;
     end;
    x:=x+6;
   end;
  x:=x+4*a[n];
  writeln(x);
end.
全部超时

回复

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

正在加载回复...