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.

Download