Подсчет количества четных элементов в массиве (перевод с Паскаля) - VB
Формулировка задачи:
Задание: Подсчет количества четных элементов в одномерном массиве. Заранее спасибо
Решение задачи: «Подсчет количества четных элементов в массиве (перевод с Паскаля)»
textual
Листинг программы
Const N = 10 Sub program_massiv7() Dim a(1 To N) As Integer Dim i As Integer Dim k As Integer 'begin Cls Randomize (Timer) For i = 1 To N 'do 'begin a(i) = 10 + Rnd * 91 Print a(i); " "; Next i Print k = 0 For i = 1 To N 'do If a(i) Mod 2 = 0 Then 'begin k = k + 1 End If Next i Print "Количество четных элементов = "; k: End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д