Найти разницу сумм четных и нечетных чисел в случайном массиве - VB

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

Скоро экзамен, помогите пожалуйста решить задачки! Найти разницу сумм четных и нечетных чисел в случайном массиве из 12 элементов.

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

textual
dim mas(1 to 12) as integer,even as integer, odd as integer, s as string, sum as integer
randomize
even=0
odd=0
s=""
for i=1 to 12
  mas(i)=cint(rnd*100)
  if mas(i) mod 2 = 0 then even=even + mas(i) else odd =odd + mas(i)
  s=s & vbcrlf & cstr(mas(i))
next i
sum = odd - even
s=s & vbcrlf & "разница сумм: " & cstr(sum)
msgbox s

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


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