Подсчет количества четных элементов в массиве (перевод с Паскаля) - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.111 из 5
Похожие ответы