0
已解决
0
已采纳
新手守护
主要程序，别忘清零
readln(n);
for i:=1 to n do
begin
readln(a,b);
h[i]:=abs(a-b);
sum:=sum+h[i];
end;
v:=sum div 2;
for i:=1 to n do
for j:=v downto h[i] do
begin
if f[j-h[i]]+h[i]>f[j] then f[j]:=f[j-h[i]]+h[i];
end;
writeln(sum-f[v]-f[v]);
0
初级光能
1
