{* Задача163 *}

REM basic

' Сформируйте матрицу А(7, 3), состоящую из целых случайных чисел от 10 до 167. Определить произведение всех её элементов.


CLS
DEFDBL A-Z
RANDOMIZE TIMER
ny = 7
nx = 3
p = 1
Dim a(ny, nx)
For y = 1 To ny: For x = 1 To nx
        a(y, x) = FIX(RND * 160 + 9)
        PRINT a(y, x);
Next: PRINT: Next
For y = 1 To ny: For x = 1 To nx
        p = p * a(y, x)
Next: Next
PRINT "p ="; p
End