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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.733 из 5

Источник
Похожие ответы