Подсчет числа различных отрицательных элементов одномерного массива - QBasic

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

составте программу подсчета числа различных отрицательных элементов одномерного массива A(Q).

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

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

DEFINT A-B, I-K, N
RANDOMIZE TIMER
CLS
INPUT "N = "; n
DIM a(1 TO n)
 
FOR i = 1 TO n
   a(i) = 20 * RND - 10
   PRINT USING "####"; a(i);
NEXT i
PRINT
 
k = 0
FOR i = 1 TO n
   IF a(i) < 0 THEN
      b = a(i)
      k = k + 1
      FOR j = i TO n
         IF a(j) = b THEN a(j) = 0
      NEXT j
   END IF
NEXT i
 
PRINT "OTVET: "; k
END

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

Задается размер массива n с помощью ввода с клавиатуры.
Создается массив a размером n.
В цикле заполняются все элементы массива a случайными отрицательными числами.
Выводится на экран каждая строка массива a.
Инициализируется счетчик k для подсчета числа отрицательных элементов.
В цикле проверяется каждый элемент массива a на отрицательность. Если элемент отрицательный, то он заменяется на ноль. При этом счетчик k увеличивается на единицу.
Выводится на экран значение счетчика k, которое и является ответом на задачу.