Найти среднее геометрическое массива. Максимальный элемент массива увеличить на среднее геометрическое - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д