Определить количество членов последовательности, имеющих четные порядковые номера - QBasic (28085)

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

Даны натуральные числа n, a1,a2,...,an. Определить количество членов ak последовательности a1,a2,...an, имеющих четные порядковые номера и являющихся нечетными числами. И еще можно ли её решить не используя массив??

Решение задачи: «Определить количество членов последовательности, имеющих четные порядковые номера»

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

input "vvedite kolichestvo chisel ",n
randomize timer
print"posledovatelnost"
for i=1 to n
a=int(rnd*50)
print a;
if (i mod 2=0) and (a mod 2<>0)then k=k+1
next
print
print "takih chisel=";k

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

Вводится количество чисел в последовательности (n).
Задается случайное начальное значение переменной a.
Выводится первое число последовательности.
Проверяется, является ли порядковый номер числа четным и само число нечетным. Если да, то к переменной k прибавляется единица.
Выполняется цикл, пока не будут выполнены два условия:
- порядковый номер числа четен;
- само число нечетное.
Выводится последнее число последовательности.
Выводится количество чисел, удовлетворяющих условиям.