VCOWFLIX - Đi xem phim
Tác giả: ll931110
Ngôn ngữ: Pascal
Program VCOWFLIX;
Const
Input = '';
Output = '';
Var
a: array[1..16] of integer;
b: array[0..5000] of integer;
c,n: integer;
Procedure enter;
Var
f: text;
i: integer;
Begin
Assign(f, input);
Reset(f);
Readln(f, c, n);
For i:= 1 to n do readln(f, a[i]);
Close(f);
End;
Procedure optimize;
Var
t,i,k: integer;
f: text;
Begin
For i:= 1 to c do b[i]:= 1000;
b[0]:= 0;
For i:= 1 to c do
Begin
k:= 1;
While ((a[k] > i) or (b[i - a[k]] >= k))
and (k <= n) do inc(k);
If k <= n then b[i]:= k;
End;
t:= c;
While b[t] = 1000 do dec(t);
Assign(f, output);
Rewrite(f);
Writeln(f, t);
Close(f);
End;
Begin
enter;
optimize;
End.