大牛瞄一眼

哪里的问题,根本没文件操作,却告诉我exitcode=103?

program ex;

const

maxn=200;

maxn2=maxn div 2;

maxrange=50;

var

c:array [0..maxn2,0..maxn2*maxrange] of boolean;

w:array [1..maxn] of byte;

n,n2:integer;

sum,k,min,ans:integer;

i,j:integer;

begin

sum:=0;

readln(n);

for i:=1 to n do

begin

readln(w[i]);

inc(sum,w[i]);

end;

n2:=(n+1) div 2;

fillchar(c,sizeof(c),0);

c[0,0]:=true;

for i:=1 to n do

for j:=n2-1 downto 0 do

for k:=maxrange*i downto 0 do

if c[j,k] then c[j+1,k+w[i]]:=true;

min:=maxint;

ans:=0;

for k:=0 to maxrange*n2 do

if c[n2,k] and (min>abs(sum-k*2)) then

begin

min:=abs(sum-k*2);

if k

1 条评论

  • 1

信息

ID
1153
难度
7
分类
动态规划 | 背包 点击显示
标签
递交数
4721
已通过
1027
通过率
22%
被复制
6
上传者