Ввести массив А(N) Найти среднее геометрическое значение

@Ки ки · Регистрация: 16.01.2017

Author24 — интернет-сервис помощи студентам

1. Ввести массив А(N). Найти среднее геометрическое значение массива. Минимальный элемент массива увеличить на среднее геометрическое. Вывести преобразованный массив.
предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками.

echs · 23.01.2017, 13:31

Visual Basic

Option Explicit
Dim N%, i%, j%, SG!, P!, min!
 
Private Sub cmdD_Click()
    Randomize Timer
    N = Val(txtN.Text)
    ReDim a(N) As Single
    ReDim b(N) As Single
    
    For i = 1 To N
        a(i) = 80 * Rnd
        b(i) = a(i)
    Next
    P = 1
    
    For i = 1 To N
        P = P * a(i)
    Next
    SG = P ^ (1 / N)
    min = a(1)
    
    For i = 1 To N
        If min > a(i) Then min = a(i): j = i
    Next
    b(j) = a(j) + SG
    Print "SG ="; SG
    
    Print " A()"; Tab(12); "B()"
    Print
    For i = 1 To N
        Print Format(a(i), " 00.000"); Format(b(i), "     0.00000")
    Next
End Sub

@Ки ки 0 / 0 / 0 Регистрация: 16.01.2017 Сообщений: 3
		1
	Ввести массив А(N) Найти среднее геометрическое значение 16.01.2017, 20:51. Показов 2333. Ответов 1 Метки нет (Все метки) 1. Ввести массив А(N). Найти среднее геометрическое значение массива. Минимальный элемент массива увеличить на среднее геометрическое. Вывести преобразованный массив. предусмотреть вывод на экран монитора исходного и полученных массивов с соответствующими заголовками. 0

	23.01.2017, 13:31