Задание по Visual Basic, структура «Накопление», страница 2

Print B(i, j);

Next

Print

Next

Print

s = 1

For i = 1 To m

For j = 1 To m

s = s * B(i, j)

Next

Next

s = s / 2

Print "Среднее арифметическое элементов матрицы:"

Print

Print s

End Sub