txtkeqm 2009-03-17 05:44:00
点我顶贴
收藏
删除
Program p72;
var a:array[1..1000] of longint;
f:array[0..1000] of longint;
n,i,j,s,w,s1:longint;
Function max(x,y:longint):longint;
begin
if x<y then max:=y
else max:=x;
end;
begin
readln(n);
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s1:=s div 2;
for i:=1 to n do
begin
for j:=s1 downto a[i] do
f[j]:=max(f[j],f[j-a[i]]+a[i]);
end;
w:=abs(s-2*f[s1]);
write(w);
end.