Найти среднее геометрическое массива. Максимальный элемент массива увеличить на среднее геометрическое - VB

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

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

Добрый день! Дана задача Ввести массив A(N). Найти среднее геометрическое значение массива. Максимальный элемент массива увеличить на среднее геометрическое. Вывести преобразованный массив. Не могу вывести преобразованный массив. Полный ступор, помогите))

Решение задачи: «Найти среднее геометрическое массива. Максимальный элемент массива увеличить на среднее геометрическое»

textual
Листинг программы
Sub Task(A() as double)
  max#=A(1)
  imax%=1
  p#=1
  for i%=1 to Ubound(A,1)
      if A(i%) > max# then
        imax%=i%
        max#=A(i%)
      end if
      p#=p#*A(i%) 
   Next i%
   p#=p#^(1.0/Ubound(A,1))
   Debug.Print "Среднее геометрическое=";p#
   A(imax%)=A(imax%)+p#
   for i%=1 to Ubound(A,1)
       Debug.Print A(i%);" ";
   next i%
   Debug.Print
End Sub

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

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