Подсчитайте число и сумму положительных и отрицательных чисел массива - QBasic

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

1. Организуйте массив. Подсчитайте число и сумму положительных и отрицательных чисел. как сделать не знаю кто может подскажите )

Решение задачи: «Подсчитайте число и сумму положительных и отрицательных чисел массива»

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

CLS
RANDOMIZE TIMER
CONST n = 20
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 14 * RND - 7
   PRINT A(i);
NEXT i
PRINT : PRINT
 
FOR i = 1 TO n
   IF A(i) <> 0 THEN
      col = col + 1
      sum = sum + A(i)
   END IF
NEXT i
 
PRINT "Col ="; col
PRINT "Sum ="; sum
END

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

Объявляется константа n равная 20.
Объявляется массив A размером n для хранения целых чисел.
Заполняется массив A случайными числами от -7 до 7 с шагом 2.
Выводится на экран каждое число массива A.
Выполняется цикл по всем элементам массива A.
Если элемент массива A не равен нулю, то увеличивается счетчик col и к сумме sum прибавляется значение элемента массива A.
Выводится на экран количество положительных чисел в массиве A.
Выводится на экран сумма положительных чисел в массиве A.