Посчитать количество четных элементов массива - VB
Формулировка задачи:
Заполнить одномерный массив из 14 элементов в интервале от 0 до 77. Посчитать количество четных элементов массива
Решение задачи: «Посчитать количество четных элементов массива»
textual
Листинг программы
Private Sub Command1_Click()
Dim a() As Integer, n As Single, m, z As Integer
Dim i As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls 'Очищаем форму
m = InputBox("Введите размерность массива", , 14)
ReDim a(1 To m)
For i = 1 To m
a(i) = Int(Rnd * 77)
Print a(i);
z = a(i) Mod 2
If z = 0 And a(i) <> 0 Then n = n + 1
Next i
Print
Print "В массиве " & n & " четнных эллементов"
End Sub