Определить среднее арифметическое положительных элементов массива - VB

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

Дан массив А(10). Определить среднее арифметическое SA положительных элементов массива с нечетными порядковыми номерами.

Решение задачи: «Определить среднее арифметическое положительных элементов массива»

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

                            Private Sub Form_Load()
    Dim I As Integer
    Dim SA As Single
    Dim q As Long
    Dim a() As Long
    
    ReDim a(10)
    
    For I = 0 To 10
        a(I) = Rnd * 10
    Next
   
    For I = 1 To 10 Step 2
        If a(I) > 0 Then
            q = q + 1
            SA = SA + a(I)
        End If
    Next I
    
    SA = SA / q
    
End Sub
                        

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

6 голосов , оценка 3.667 из 5

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