问题标题: 酷町堂：3

1210

var
    n,i,j,a,b,v:longint;
    sum:longint;
    h:array [0..300] of longint;
    f,s,c:array [0..30000] of longint;
begin
    sum:=0;
    fillchar(f,sizeof(f),0);
    readln(n);
    for i:=1 to n do
    begin
        read(s[i]);
        sum:=sum+s[i];
        c[i]:=s[i];
    end;
    v:=sum div 2; 
    for i:=1 to n do
        for j:=v downto s[i] do 
        begin
            if f[j-s[i]] + c[i] > f[j] then
                f[j]:=f[j-s[i]] + c[i];
        end;
        writeln(sum-f[v]-f[v]);
end.

哪错了