Матрица, не могу разобраться с главной дагональю - VB

Узнай цену своей работы

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

Вычислить среднее геометрическое элементов матрицы R, размер CxC, расположенной на главной диагонали

Решение задачи: «Матрица, не могу разобраться с главной дагональю»

textual
Листинг программы
R = 1
 
For i = 1 To C
   If A(i, i) > 0 Then
      R = R * A(i, i)
   Else
      Print "Среднее геометрическое не определено"
      Goto 1000
   End If
Next 
 
R = R ^ (1/C)
Print R
1000

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы