DIM a(5, 3)
INPUT "vvedite chislo ", n
FOR i = 1 TO 5
FOR j = 1 TO 3
INPUT "vvedite element ", a(i, j)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO 5
FOR j = 1 TO 3
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO 5
FOR j = 1 TO 3
s = s + a(i, j)
NEXT
IF s > n THEN m = m + 1
s = 0
NEXT
PRINT "takih strok="; m
Тестирование выполнено в программе QB64 ( Скачать )