最小最大和 (Standard IO)

最新推荐文章于 2024-07-22 20:10:45 发布

peter_zhu01

最新推荐文章于 2024-07-22 20:10:45 发布

阅读量408

点赞数 5

CC 4.0 BY-SA版权

分类专栏： PASCAL 中山纪念中学的那几天优美的暴力文章标签：最小最大和 Standard IO

本文链接：https://blog.youkuaiyun.com/peter_zhu01/article/details/51918122

PASCAL 同时被 3 个专栏收录

190 篇文章

订阅专栏

中山纪念中学的那几天

86 篇文章

订阅专栏

优美的暴力

40 篇文章

订阅专栏

本文介绍了一个游戏中的数学问题，Bob给Alice两个整数，要求Alice将这些整数进行配对，使得配对后的和达到最小的最大值。文章通过桶排序的方法解决此问题，并给出具体的实现代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题意/Description:

Alice和Bob在玩一个游戏，每一轮Bob都会给Alice两个整数A和B(1<=A,B<=100)，Alice每一轮必须把目前所有的A序列和B序列中的数一一配对，每个数必须用且只使用一次，要求最大和最小。

读入/Input：

第一行一个整数N(1<=N<=100000)，表示比赛的轮数。
　　接下来N行每行包含两个整数A和B(1<=A,B<=100)，表示Bob这一轮给的两个数。

输出/Output：

输出N行，每行输出最小的最大和。

题解/solution：

看到n很大，就崩溃了。不过a和b只有100，自信的打了一个桶排。说到这，后面就暴力吧。

点赞......

代码/Code：

var
  n,max:longint;
  a,b,c,d:array [-100..201] of longint;
procedure init;
var
  x,y,k,i,j:longint;
begin
  readln(n);
  for k:=1 to n do
    begin
      readln(x,y);
      inc(c[x]); inc(d[y]);
      a:=c; b:=d;
      i:=1; j:=100; max:=0;
      while 1=1 do
        begin
          while (a[i]=0) and (i<110) do inc(i);
          while (b[j]=0) and (j>-10) do dec(j);
          if (i>100) and (j<0) then break;
          if a[i]>b[j] then
            begin
              a[i]:=a[i]-b[j];
              b[j]:=0;
            end else
            begin
              b[j]:=b[j]-a[i];
              a[i]:=0;
            end;
          if i+j>max then max:=i+j;
        end;
      writeln(max);
    end;
end;

begin
  init;
end.