题目:
2001年9月11日,一场突发的灾难将纽约世界贸易中心大厦夷为平地,Mr. F曾亲眼目睹了这次灾难。为了纪念“9?11”事件,Mr.F决定自己用水晶来搭建一座双塔。
Mr. F有N块水晶,每块水晶有一个高度,他想用这N块水晶搭建两座有同样高度的塔,使他们成为一座双塔,Mr.F可以从这N块水晶中任取M(1≤M≤N)块来搭建。但是他不知道能否使两座塔有同样的高度,也不知道如果能搭建成一座双塔,这座双塔的最大高度是多少。所以他来请你帮忙。
此题用f[i,j]表示高度为i和j时,能否达成。
var
a:array[0..100] of longint;
f:array[0..2000,0..2000] of boolean;
i,j,k,sum,n:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
f[0,0]:=true;
for i:=1 to n do
begin
for j:=sum downto 0 do
for k:=sum downto 0 do
if f[j,k] then
begin
f[j,k+a[i]]:=true;
f[j+a[i],k]:=true;
end;
sum:=sum+a[i];
end;
for i:=sum downto 1 do
if f[i,i] then
begin
writeln(i);
halt;
end;
writeln('Impossible');
end.