Visual Basic FAQ

В одномерном массиве B, состоящего из N элементов, найти среднее арифметическое четных чисел.

Option Base 1

Private Sub Command1_Click()
Dim B() As Long
Dim N As Integer
N = Val(InputBox("Введите размеренность от 1 до 10 массива", "Задача №1", "N"))
Select Case N
Case Is < 1
Exit Sub
Case Is <= 10
Dim average As Long
Dim even As Long
For x = 1 To N
  ReDim Preserve B(x)
  B(x) = Val(InputBox("Введите элемент B(" & x & ")", "Заполнение массива"))
    If B(x) <> 0 Then
        If B(x) Mod 2 = 0 Then
            average = average + B(x)
            even = even + 1
        End If
    End If
Next x
If even > 0 Then
    MsgBox "среднее арифметическое четных чисел = " & average / even
Else
    MsgBox "в массиве отсутствуют чётные числа"
End If
Case Is > 10
MsgBox "Говорю же, от 1 до 10!"
Call Command1_Click
End Select
End Sub

Запись опубликована on 21.11.2009 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.