Подсчитать количество четных чисел в массиве из 20 случайных чисел - VB

Узнай цену своей работы

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

12. Подсчитать количество четных чисел в массиве из 20 случайных чисел

Решение задачи: «Подсчитать количество четных чисел в массиве из 20 случайных чисел»

textual
Листинг программы
dim arr(1 to 20) as integer, kol as integer, s as string
randomize
kol = 0
s=""
for i =1 to 20
arr(i)=100*Rnd
s=s & " " & arr(i)
if arr(i) mod 2 = 0 then kol = kol + 1
next i
msgbox s & ", " & kol

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

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