Как найти количество различных элементов одномерного масива A(Q) , принадлежащих отрезку [R,P] - QBasic

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

Составьте программу подсчета числа различных элементов одномерного масива A(Q) , принадлежащему отрезку [R,P]

Решение задачи: «Как найти количество различных элементов одномерного масива A(Q) , принадлежащих отрезку [R,P]»

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

DEFINT A-D, I-L, N
RANDOMIZE TIMER
CLS
INPUT "N = "; n
INPUT "A=?, B="; a, b
DIM c(1 TO n)
DIM d(1 TO n)
 
FOR i = 1 TO n
   c(i) = 10 * RND - 5
   PRINT USING "###"; c(i);
NEXT i
PRINT
 
FOR i = 1 TO n - 1
   FOR j = 1 TO n - 1
      IF c(j) > c(j + 1) THEN SWAP c(j), c(j + 1)
   NEXT j
NEXT i
 
k = 1
d(k) = c(1)
FOR i = 1 TO n
   IF d(k) < c(i) THEN
      k = k + 1
      d(k) = c(i)
   END IF
NEXT i
 
l = 0
FOR i = 1 TO k
   IF a <= d(i) AND d(i) <= b THEN
      l = l + 1
   END IF
NEXT i
 
PRINT l
END

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

Этот код на языке QBasic решает задачу поиска количества элементов в одномерном массиве, принадлежащих заданному отрезку. Вот список действий, которые выполняет код:

Ввод данных от пользователя:
- Переменная n инициализируется значением, введенным пользователем. Она представляет собой размер массива.
- Переменные a и b инициализируются значениями, введенными пользователем. Они представляют собой границы отрезка.
Инициализация массивов:
- Создается массив c размером 1 TO n. Он будет использоваться для хранения случайных чисел.
- Создается массив d размером 1 TO n. Он будет использоваться для хранения уникальных чисел из массива c, которые принадлежат заданному отрезку.
Поиск уникальных чисел, принадлежащих отрезку:
- Используется два вложенных цикла for для сортировки массива c в порядке возрастания.
- С помощью условного оператора if проверяется, является ли текущий элемент массива c больше следующего элемента. Если это так, то они меняются местами.
- Используется еще один вложенный цикл for для проверки каждого элемента массива c и добавления его в массив d, если он находится в заданном диапазоне.
Подсчет количества элементов в заданном диапазоне:
- Переменная l инициализируется значением 0. Она будет использоваться для подсчета количества элементов.
- Используется цикл for для прохода по всем элементам массива d.
- С помощью условного оператора if проверяется, принадлежит ли текущий элемент массива d заданному диапазону. Если это так, то переменная l увеличивается на 1.
Вывод результата:
- Выводится значение переменной l, которое представляет собой количество элементов в заданном диапазоне.