{* Задача33 *}

REM basic

' Дана матрица A=[aij]. Построить вектор b1, b2, …, bm, компоненты которого равны произведению элементов строк матрицы


CLS
PRINT "Введите число строк"
INPUT m 
PRINT "Введите число столбцов"
INPUT n
Dim a(m,n), b(m)
For i=1 To m 
For j=1 To n
PRINT "Введите a("; i; j; ")";
INPUT a(i, j)
Next j
Next i
PRINT "Исходная матрица"
For i=1 To m
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
P=1
For i=1 To m 
For j=1 To n
P=P*a(i,j)
Next j
b(i)=P
Next i
PRINT "Получаем одномерный массив"
For i=1 To m
PRINT b(i);
Next i
End