strategije1  =  
      Flatten[Table[{i, j}, {i, 0, 1}, {j, 0, 2}], 1]

svefunkcije  =  
      Flatten[Table[{i, j, k}, {i, 0, 2}, {j, 0, 2}, {k, 0, 2}], 
        2]

bezfiksne[{a_, b_, c_}] := 
      a ≠ 0  &&  b ≠ 1  &&  
        c ≠ 2

dobrefunkcije =  Select[svefunkcije,  bezfiksne]

strategije2 = 
      Flatten[Table[{i, dobrefunkcije[[j]]}, {i, 0, 1}, {j, 1, 8}], 
        1]

a[{x1_, y_}, {x2_, f_}] := 
      Switch[x1 + x2, y, 1, f[[y + 1]], -1, _, 0]

(A = 
          Table[a[strategije1[[i]], strategije2[[j]]], {i, 1, 6}, {j, 
              1, 16}]) // MatrixForm