{* Задача93 *}

REM basic

' Составьте программу подсчёта строк двумерного массива А(N, N), в которых имеются два нулевых элемента.


INPUT str
INPUT sto
Dim a(str,sto)
PRINT"Исходная матрица А"
For i=1 To str 
c0=0
For j=1 To sto 
a(i,j)=INT(RND*8)-4
If a(i,j)=0 Then c0=c0+1
PRINT a(i,j);
Next
If c0=2 Then cs=cs+1
PRINT
Next
PRINT"В данной матрице таких строк: ";cs)
End