var
  i,j,n,v:longint;
  a:array[0..31]of longint;
  opt:array[0..31,0..20001]of longint;
function
  max(x,y:longint):longint;
  begin
    if x>y then exit(x)
           else exit(y);
  end;
begin
  readln(v);
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  for j:=1 to v do
    if j>=a[1]
      then
        opt[1,j]:=a[1];
  for i:=2 to n do
    for j:=1 to v do
      if j>a[i]
        then
          opt[i,j]:=max(opt[i-1,j],opt[i-1,j-a[i]]+a[i])
        else
          opt[i,j]:=opt[i-1,j];
  writeln(v-opt[n,v]);
end.