Вычисление суммы всех нечетных элементов массива - QBasic

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

Условие :

Задать случайным образом из промежутка [-9;9] одномерный массив A(N). Выполнить задание своего варианта.

Задание 1)

Составить программу для вычисления суммы всех нечетных элементов массива.

Задание 2)

Заменить нечетные элементы на 0.

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

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

CLS
  INPUT "Kol-vo elementov :", N
  DIM A(N) AS INTEGER
  RANDOMIZE TIMER
FOR i = 1 TO N
    A(i) = RND * 18 - 9
NEXT
FOR i = 1 TO N
    IF (A(i) AND 1) = 1 THEN A(i) = 0
NEXT
FOR i = 1 TO N
    PRINT A(i);
NEXT

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

В первой строке программы выводится сообщение Kol-vo elementov :, которое предлагает пользователю ввести количество элементов массива.
Затем создается массив A, размер которого определяется пользователем.
Далее запускается таймер, который используется для генерации случайных чисел.
Первый цикл проходит по всем элементам массива и заполняет их случайными числами от 0 до 18.
Второй цикл проверяет каждый элемент массива на нечетность и если элемент нечетный, то он заменяется на 0.
Третий цикл выводит все элементы массива на экран.