拔河比赛
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
3 100 90 200
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.