Для чётных элементов массива найти произведение, а для нечётных - среднее арифметическое - QBasic

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

Дан массив Х(М). Для чётных элементов массива найти произведение, а для нечётных-среднее арифметическое знаение

Решение задачи: «Для чётных элементов массива найти произведение, а для нечётных - среднее арифметическое»

Листинг программы

cls: proiz=1:k=-1
randomize timer
input "M=";M' ввод размера массива
dim X(M)
 
for i=1 to M
  X(i)=int(rnd*30-rnd*15): print X(i)' генерирование произвольных значений элементов массива
  if X(i) mod 2=0 then proiz=proiz*X(i): k=k+1 else sum=sum+X(i): kol=kol+1
next
s=sum/kol
if k=0 then proiz=0
 
color 2
print "Proiz chyot:"; proiz
print "Sred arif:"; s
end

Объяснение кода листинга программы

Объявлен размер массива M.
Массив X инициализирован.
В цикле происходит заполнение массива X случайными числами.
Если элемент массива X(i) является чётным, то его значение умножается на proiz, иначе он прибавляется к s и к kol.
После цикла, значение s вычисляется как сумма элементов массива, поделённая на их количество.
Если количество чётных элементов массива равно 0, то proiz присваивается 0.
Выводится значение proiz.
Выводится значение s.