В векторе определить сумму нечетных элементов - QBasic

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

1)В векторе Z(m) определить сумму нечетных элементов. 2)Определить, кратна ли сумма элементов массива D(12) числу 5.

Решение задачи: «В векторе определить сумму нечетных элементов»

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

CLS
m = 10
s=0
DIM z(m)
RANDOMIZE TIMER
FOR i = 1 TO m
 z(i) = INT(RND * 100)
 PRINT z(i);
NEXT
PRINT
FOR i = 1 TO m STEP 2
 s = s + z(i)
 PRINT z(i);
NEXT
PRINT
PRINT s

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

Вот что делается в этом коде:

Очистка экрана - команда CLS используется для очистки экрана перед выводом результатов.
Задание значения переменной m - в данном случае m равно 10, что означает, что будет создано 10 элементов в векторе z.
Инициализация переменной s - сумма нечетных чисел будет храниться в переменной s и изначально равна 0.
Создание вектора z - команда DIM создает вектор z размером m.
Заполнение вектора z случайными числами - в цикле FOR от 1 до m каждый элемент вектора z заполняется случайным числом от 0 до 99 (INT(RND * 100)).
Вывод элементов вектора z - в цикле FOR от 1 до m элементы вектора z выводятся на экран.
Нахождение суммы нечетных чисел - в цикле FOR от 1 до m с шагом 2 (STEP 2) каждый нечетный элемент вектора z прибавляется к переменной s.
Вывод суммы нечетных чисел - значение переменной s выводится на экран.