Произведение элементов матрицы - VB

Формулировка задачи:

Дана матрица размера M x N. Для каждого столбца матрицы найти произведение его элементов.

Код к задаче: «Произведение элементов матрицы - VB»

textual
ReDim A(m, n) As Integer
ReDim P(n) As Integer
 
For i = 1 To m
For j = 1 To n
   A(i, j) = 40 * Rnd - 20
   Print A(i, j);
Next : Print
Next : Print
 
For j = 1 To n
   P(j) = 1
Next
 
For j = 1 To n
For i = 1 To m
   P(j) = P(j) * A(i, j)
Next i, j
 
For j = 1 To n
   Print P(j);
Next

11   голосов, оценка 3.909 из 5


СОХРАНИТЬ ССЫЛКУ