CLS
INPUT n
INPUT m
DIM a(n, m)
FOR i = 1 TO n
FOR j = 1 TO m
INPUT a(i, j)
NEXT
NEXT
INPUT l
FOR i = 1 TO n
kol = 0
FOR j = 1 TO m
kol = kol + a(i, j)
NEXT j
IF kol > l THEN s = s + 1
NEXT
PRINT s
Тестирование выполнено в программе QB64 ( Скачать )