Дана матрица А(n×m)....

Дана матрица А(n×m). Получить вектор b1, b2, …, bn, где bi равно произведениям элементов строк. Составить программу на языкеBasic

 

Правильность не гарантирую, потому что проверить в данный момент код негде.
 
Sub название
Dim A() As Integer
Dim b() As Integer
Dim i, j As Integer
 
'Задаем размерность массива
Console.WriteLine ("Введите количество строк")
n = Console.ReadLine                                             
Console.WriteLine ("Введите количество столбцов")
m = Console.ReadLine

ReDim A(n, m) As Integer
ReDim b(n) As Integer
 
'Цикл ввода данных
For i = 1 To n
For j = 1 To m
Console.WriteLine ("Введите число")
A(i, j) = Console.ReadLine
Next j
Next i
 
'Все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значение
For i = 1 To n
b(i) = 1
Next i
 
'Цикл вычисления каждого элемента массива b
For i = 1 To n
For j = 1 To m
b(i) = b(i) * A(i, j)
Next j
Next i
 
'Вывод результата на экран
For i = 1 To n
Console.Write (b(i))
Next i
End Sub