Програмка - QBasic

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

В программе описан одномерный целочисленных массива A с индексами от 1 до 10. Значения элементов сначала задаются, а затем меняются. Бейсик

FOR i=1 TO 10 A(i)=10-i NEXT i FOR i=1 TO 8 А(i+2)=A(i)+ А(i+2) NEXT i

Сколько элементов массива будут четными?

1)1 2)5 3)7 4)9

Решение задачи: «Програмка»

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

CLS
DIM a(10)
FOR i = 1 TO 10
    a(i) = 10 - i
NEXT
FOR i = 1 TO 8
    a(i + 2) = a(i) + a(i + 2)
NEXT
FOR i = 1 TO 10
    IF (a(i) AND 1) = 0 THEN k = k + 1
NEXT
FOR i = 1 TO 10
    PRINT a(i);
NEXT
PRINT
PRINT "k ="; k

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

В этом коде:

Создается массив a размером 10.
В каждой ячейке массива a(i) хранится значение 10 - i.
Производится суммирование элементов массива a, начиная с индекса 2, и результат записывается в ячейку a(i + 2).
Происходит проверка: если значение a(i) не равно 0, то к переменной k прибавляется единица.
Выводятся значения всех элементов массива a.
Выводится значение переменной k.