拔河比赛

最新推荐文章于 2024-08-01 23:17:15 发布

原创最新推荐文章于 2024-08-01 23:17:15 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

动态规划专栏收录该内容

21 篇文章

订阅专栏

拔河比赛

Time Limit:10000MS Memory Limit:65536K
Total Submit:151 Accepted:62
Case Time Limit:1000MS

Description

　　一个学校举行拔河比赛，所有的人被分成了两组，每个人必须（且只能够）在其中的一组，要求两个组的人数相差不能超过1，且两个组内的所有人体重加起来尽可能地接近。
　　

Input

　　输入数据的第1行是一个n，表示参加拔河比赛的总人数，n<=100，接下来的n行表示第1到第n个人的体重，每个人的体重都是整数（1<=weight<=450）。

Output

　　输出数据应该包含两个整数：分别是两个组的所有人的体重和，用一个空格隔开。注意如果这两个数不相等，则请把小的放在前面输出。

Sample Input

Sample Output

190 200

Source

pku 2756

var a:array[0..100] of longint;f:array[0..50,0..45000] of boolean;
i,j,k,n,sum,s,minn,max:longint;
function min(a,b:longint):longint;
begin
  if b<a then
  begin
    min:=b;
    max:=a;
  end else
  begin
    min:=a;
    max:=b;
  end;
end;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(a[i]);
    sum:=sum+a[i];
  end;
  f[0,0]:=true;
  for i:=1 to n do
    for j:=n div 2 downto 0 do
      for k:=sum downto 0 do
        if f[j,k] then
          f[j+1,k+a[i]]:=true;
  minn:=50000;
  for k:=0 to sum do
    if f[n div 2,k] and (abs(k-sum+k)<minn) then
    begin
      minn:=abs(k-sum+k);
      s:=k;
    end;
  writeln(min(s,sum-s),' ',max);
end.