/**************************************************************

    Problem:

    User: BLADEVIL

    Language: Pascal

    Result: Accepted

    Time: ms

    Memory: kb

****************************************************************/

 

//By BLADEVIL

var

    i, j                        :longint;

    c, d                        :array[..] of longint;

    t, s                        :longint;

    w                           :array[..] of int64;

    ans                         :int64;

     

procedure dfs(now,sum,flag:longint);

begin

    if sum< then exit;

    if now= then

    begin

        if flag= then

            ans:=ans+w[sum] else

            ans:=ans-w[sum];

        exit;

    end;

    dfs(now+,sum,flag);

    dfs(now+,sum-c[now]*(d[now]+),flag xor );

end;

     

begin

    for i:= to  do read(c[i]);

    read(t);

    w[]:=;

    for i:= to  do

        for j:=c[i] to  do w[j]:=w[j]+w[j-c[i]];

     

    for i:= to t do

    begin

        for j:= to  do read(d[j]);

        read(s);

        ans:=;

        dfs(,s,);

        writeln(ans);

    end;

end.