14 lines
276 B
ObjectPascal
14 lines
276 B
ObjectPascal
var
|
|
i,j,m,n:longint;
|
|
w:array[1..20000] of longint;
|
|
f:array[0..20000] of longint;
|
|
begin
|
|
readln(m);
|
|
readln(n);
|
|
for i:=1 to n do readln(w[i]);
|
|
for i:=1 to n do
|
|
for j:=m downto w[i] do
|
|
if f[j-w[i]]+w[i]>f[j] then f[j]:=f[j-w[i]]+w[i];
|
|
writeln(m-f[m]);
|
|
end.
|