Code:

$=-1,-1,-1,0,-1
IIf(Ascan($array,0)<0,T,F)