Определить количество положительных и количество отрицательных элементов массива - QBasic

Определить количество положительных и количество отрицательных элементов массива

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

IF a(x) >= 0 THEN s = s + 1 ELSE p = p + 1

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

В данном коде выполняется подсчет количества положительных и отрицательных элементов в массиве. Список действий:

Переменная s инициализируется значением 0. Она будет использоваться для подсчета положительных элементов.
Переменная p инициализируется значением 0. Она будет использоваться для подсчета отрицательных элементов.
Происходит итерация по элементам массива a.
Для каждого элемента a(x) выполняется проверка: если элемент больше или равен нулю, то к переменной s прибавляется единица, иначе к переменной p прибавляется единица.
После завершения итерации по всем элементам массива, в переменной s будет храниться количество положительных элементов, а в переменной p - количество отрицательных элементов.