社区讨论

为毛总是80分

RRuican
P1478陶陶摘苹果（升级版）参与者 6已保存回复 7

讨论操作

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

当前回复
7 条
当前快照
1 份
快照标识符
@mi4g71fj
此快照首次捕获于
2025/11/18 18:45
4 个月前
此快照最后确认于
2025/11/18 18:45
4 个月前
查看原帖
CPP
var
 n,s,a,b,i,k,v,j,h,c,p:longint;
 xi,yi:array[1..5000]of longint;
begin
  readln(n,s);
    readln(a,b);
      for i:=1 to n do
        readln(xi[i],yi[i]);
          k:=0;v:=a+b;p:=0;
            for i:=1 to n do
              if v>=xi[i] then begin
            inc(k);yi[k]:=yi[i];end;
          for j:=1 to k do
        for h:=1 to k-1 do begin
      if yi[h]>yi[h+1] then begin c:=yi[h];yi[h]:=yi[h+1];yi[h+1]:=c;end;end;
    for i:=1 to k do begin s:=s-yi[i];
  if s>0 then begin inc(p);end else break;end;
write(p);
end.

回复

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

正在加载回复...