Написать рекурсивную функцию, которая возвращает среднее из n элементов массива чисел - VB

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

Что тут не правильно???

Function sum(n As Integer, k As Integer, a() As Integer) As Single
If n = 0 Then sum = 0 Else sum = sum(n - 1, k) + (a(n) / k)
End If
End Function
 
Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim k As Integer
Dim a() As Integer
k = InputBox("количество элементов, "", "")
For i = 1 To k
a(i) = InputBox("введите элемент")
Next i
Print "sum=", sum(n, k, a())
End Sub

Решение задачи: «Написать рекурсивную функцию, которая возвращает среднее из n элементов массива чисел»

textual
                            Листинг программы 
                        

                            Function sum(n As Integer, k As Integer, a() As Integer) As Single
    If n <> 0 Then sum = sum(n - 1, k, a()) + (a(n) / k)
End Function
 
Private Sub Command1_Click()
    Dim n As Integer, i As Integer, k As Integer, a() As Integer
    k = InputBox("количество элементов", "", 5)
    ReDim a(1 To k)
    Randomize
    Cls
    For i = 1 To k
       a(i) = InputBox("введите элемент №" & i, , Int(Rnd * 9 + 1))
    Next i
    n = k
    Print "sum = " & sum(n, k, a())
End Sub
                        

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

7 голосов , оценка 3.857 из 5

Похожие ответы