{* Задача12 *}

REM basic

' Найти количество К нулевых элементов массива А и номера строк N, в которых они размещаются


INPUT "Vvedite kolichestvo elementov",I
Dim A(I)
Dim N(I)
For J=1 To I
INPUT "Vvedite element", A(J)
If A(J) =0 Then K=K+1
N(K)=J
PRINT "N(";K;")=";N(K)
Next J
PRINT "K=";K