
main = do
 [_ ,_ ,c] <- map (read::String->Int) .words <$> getLine
 b  <- map (read::String->Int) .words <$> getLine ::IO([Int])
 aa  <- map (map (read::String->Int) .words) .lines <$> getContents  :: IO([[Int]])
 print.length.filter (-c<) .map (vdot b) $aa

vdot :: [Int] -> [Int] -> Int
vdot x y = sum $ zipWith (*) x y