WMA
ArrayQ
True
ArrayQ[expr]
ArrayQ[expr, _, True&]
ArrayQ[a]
ArrayQ[{a}]
ArrayQ[{{{a}},{{b,c}}}]
ArrayQ[{{a, b}, {c, d}}, 2, SymbolQ]