Составить програмный код 2 - VB

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

Вычислить среднее арифметическое четных чисел в массиве, заданном случайным образом в интервале [-9,2 ; 9,25].

Код к задаче: «Составить програмный код 2 - VB»

textual
n = 20
ReDim a(n)
Sa = 0: k = 0
For i = 1 To 20
a(i) = Rnd * (9.26 + 9.2) - 9.2
If a(i) Mod 2 = 0 Then Sa = Sa + a(i): k = k + 1
Next i
If k <> 0 Then MsgBox Sa / k

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


СОХРАНИТЬ ССЫЛКУ