This question was posted on the net. Given
b:=Table[{x,y},{x,1,6},{y,1,6}]
select from it elements \(x,y\) which satsify \(x+y>9\)
some answers
(me) Select[Flatten[b, 1], #1[[1]] + #1[[2]] > 9 & ] Out[152]= {{4, 6}, {5, 5}, {5, 6}, {6, 4}, {6, 5}, {6, 6}}
Adriano Pascoletti answer
Cases[b, {x_Integer, y_Integer} /; x + y > 9, {2}]
Bill Row answer
Cases[Flatten[b, 1], _?(Total[#1] > 9 & )]
Murray Eisenberg answer
Select[Flatten[b, 1], First[#1] + Last[#1] > 9 & ]