Составить программу вычисления в массиве A(N) произведения чётных элементов - QBasic

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

1. Составить программу вычисления в массиве A(N) произведения чётных элементов. 2. Составить программу вычисления в массиве B(N) минимального среди положительных элементов и его номера. 3. Составить программу вычисления суммы элементов от второго отрицательного и до конца.

Решение задачи: «Составить программу вычисления в массиве A(N) произведения чётных элементов»

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

DATA 10
DATA 1, 1, -1, 0, 100, 1, -1, 5, 5, 0
   CLS
   READ n
   FOR i = 1 TO n
      READ a(i)
   NEXT
   FOR i = 1 TO n
      f = f - (a(i) < 0)
      IF f > 1 THEN s = s + a(i)
   NEXT
PRINT s

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

DATA 10 - устанавливает размер массива A(N) равным 10
DATA 1, 1, -1, 0, 100, 1, -1, 5, 5, 0 - заполняет массив A(N) данными
CLS - очищает экран
READ n - запрашивает у пользователя размер массива A(N)
FOR i = 1 TO n - начинает цикл по элементам массива A(N) с индексом от 1 до n
READ a(i) - считывает значение i-го элемента массива A(N) в переменную a(i)
NEXT - завершает текущую итерацию цикла
FOR i = 1 TO n - начинает цикл по элементам массива A(N) с индексом от 1 до n
f = f - (a(i) < 0) - проверяет на чётность i-го элемента массива A(N), если он отрицательный, то инвертирует значение переменной f
IF f > 1 THEN s = s + a(i) - если значение переменной f больше 1, то прибавляет i-й элемент массива A(N) к переменной s
NEXT - завершает текущую итерацию цикла
PRINT s - выводит на экран значение переменной s, которое является искомым результатом произведения чётных элементов массива A(N)