{* Задача104 *}

REM basic

' Ввести двумерный массив M x N. Определить произведение элементов K-й строки (K вводится с клавиатуры), значение которых лежит в диапазоне от 1 до 9.


10 INPUT "Количество строк ="; M%: If M% < 1 Then 10
20 INPUT "Количество столбцов ="; N%: If N% < 1 Then 20
30 Dim AR(M%, N%)
40 For I=1 To M%
50 For J=1 To N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 Next J, I
90 INPUT "Номер строки ="; K%: If K% < 1 Or K% > M% Then 310
100 P = 1: F = 0
110 For J=1 To N%
120 If AR(K, J) > 0 And AR(K, J) < 10 Then P = P * AR(K, J): F = 1
130 Next J
140 If F=1 Then PRINT "Произведение чисел равно"; P: GoTo 380
150 PRINT "Чисел, лежащих в указанном диапазоне, в строке нет."
160 End