Дан массив натуральных чисел.Найти сумму элементов кратных к - QBasic

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

1.Дан массив натуральных чисел.Найти сумму элементов кратных к 2.Последовательность действительных чисел оканчивается нулем.Найти количество членов этой последовательности

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

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

CLS
DIM a(1000)
DO
    i = i + 1
    INPUT a(i)
LOOP WHILE a(i) <> 0
PRINT "kolichestvo elementov:"; i

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

Объявляется массив a(1000) для хранения натуральных чисел.
Запускается цикл DO-LOOP, который будет выполняться до тех пор, пока не встретит условие, чтобы прекратить выполнение (в данном случае, пока не встретит число 0).
Внутри цикла пользователь последовательно вводит числа и сохраняет их в элементах массива a(i).
После окончания цикла программа выводит на экран сообщение kolichestvo elementov: и значение переменной i, которая равна количеству элементов массива (натуральных чисел), введенных пользователем.