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

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

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

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

Решение задачи: «Найти разницу сумм четных и нечетных чисел в случайном массиве»

textual
Листинг программы
  1. dim mas(1 to 12) as integer,even as integer, odd as integer, s as string, sum as integer
  2. randomize
  3. even=0
  4. odd=0
  5. s=""
  6. for i=1 to 12
  7.   mas(i)=cint(rnd*100)
  8.   if mas(i) mod 2 = 0 then even=even + mas(i) else odd =odd + mas(i)
  9.   s=s & vbcrlf & cstr(mas(i))
  10. next i
  11. sum = odd - even
  12. s=s & vbcrlf & "разница сумм: " & cstr(sum)
  13. msgbox s

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы