[DP][rqnoj72]拔河比赛

拔河比赛

题目描述

• superwyh的学校要举行拔河比赛，为了在赛前锻炼大家，老师决定把班里所有人分为两拨，进行拔河因为为锻炼所以为了避免其中一方的实力过强老师决定以体重来划分队伍，尽
  量保持两个队伍的体重差最少，因为老师对结果没兴趣，所以只告诉老师最小的体重差是多少就行了。这个受苦受累的任务就交给superwyh了，因为这两天superwyh的后背间谍sjh
  闹肚子了，所以只好superwyh亲自去调查每个人的体重，但是仅仅知道体重依然难以确定到底如何分配队伍，请各位oier帮助superwyh出出主意。

输入格式

• 第一行为人数(1<=n<=100)，从第二行开始是每个人的体重(0<=m<=100)。

输出格式

• 最小体重差。

题解

- 转换为01背包即可假设
- 找到一组队员的重量x，另一组则为sum-x
- 最小值即为sum-2*x

var
 x:array[1..100]of longint;
 dp:array[0..10000]of longint;
 i,j,n,sum:longint;
function max(a,b:longint):longint;
begin
 if a>b
 then exit(a)
 else exit(b);
end;

begin
 readln(n);
 for i:=1 to n do
  begin
   readln(x[i]);
   inc(sum,x[i]);
  end;
 for i:=1 to n do
  for j:=sum downto x[i] do
   if (dp[j-x[i]]+x[i])*2<=sum
   then dp[j]:=max(dp[j],dp[j-x[i]]+x[i]);
 writeln(abs(sum-2*dp[sum div 2]));
end.