Найти разницу сумм четных и нечетных чисел в случайном массиве - VB
Формулировка задачи:
Скоро экзамен, помогите пожалуйста решить задачки! Найти разницу сумм четных и нечетных чисел в случайном массиве из 12 элементов.
Решение задачи: «Найти разницу сумм четных и нечетных чисел в случайном массиве»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д