Vba

[Дашкаа]

помогите исправить программу!
Подсчитать в матрице число строк, не содержащих ни одного нуля.

INPUT "Количество строк - ", N
INPUT "Количество столбцов - ", M : DIM A(N, M)
FOR i = 1 TO N
FOR j = 1 TO M
PRINT "A(" ; i ; ", " ; j ; ") = " ;
INPUT A(i, j)
NEXT j
NEXT i : CLS
PRINT "Исходная матрица :" : PRINT
FOR i = 1 TO N
FOR j = 1 TO M
PRINT A(i, j) ;
NEXT j : PRINT
NEXT i : PRINT
K = 0
FOR i = 1 TO N 'цикл по всем строкам
j = 1 : Flag = 0
WHILE (j <= M) AND ( Flag = 0 ) 'цикл до нулевого элемента строки
IF A(i, j) = 0 THEN Flag = 1: K = K + 1 ELSE j = j + 1
WEND
NEXT i
PRINT "О т в е т : строк, содержащих нули, " ; K ; "."
END

[Alex11223]

Эм...А что исправить? в конце наверно надо выводить не число строк, содержащих нули, а число строк не содержащих нули) т.е. N-K, например.

[Дашкаа]

эта программа у меня не работает

вот это выделяет INPUT "Количество строк - ", N
INPUT "Количество столбцов - ", M : DIM A(N, M)

[Alex11223]

А, ну так у вас N и M же ничего не содержат. Перед этим надо им какое-нибудь значение присвоить.

[Дашкаа]

спасибо большое!