Найти количество чисел, входящих в массив только по одному разу - QBasic

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

1. Составить алгоритм и программу, которые в массиве целых чисел A(N) (в массиве могут быть и повторяющиеся члены) находят количество чисел, входящих в массив только по одному разу. Вывести также и эти числа. 2. Составить алгоритм и программу, которые вводят два одномерных массива A(N) и B(M) и получают из них новый массив, записывая в него элементы исходных массивов в порядке возрастания. Одинаковые элементы заносить только один раз. 3. Составить алгоритм и программу, которые в двумерный массив размерностью NxK вводят числа. Определить и вывести на экран максимальное из чисел, встречающихся в массиве более одного раза. 4. В двумерном массиве размерностью NxN заполнить единицами нижнюю половину (включая среднюю строку, если N - нечетное число), за исключением элементов, расположенных правее главной диагонали. Остальные элементы массива заполнить нулями.

Решение задачи: «Найти количество чисел, входящих в массив только по одному разу»

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

CLS
INPUT N
DIM A(N, N)
FOR I = 1 TO N
  FOR J = 1 TO N
    A(I, J) = 0
    IF I > INT(N / 2) THEN
      IF J < I THEN
        A(I, J) = 1
      END IF
    END IF
  PRINT A(I, J);
  NEXT J
PRINT
NEXT I

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

В этом коде происходит следующее:

Сначала пользователю предлагается ввести число N, которое будет определять размер массива A.
Затем массив A инициализируется нулями.
Далее в цикле происходит заполнение массива A значениями 1 там, где они не нарушают условие проверки, которое заключается в том, что элемент A(I, J) будет равен 1 только в том случае, если I больше N/2 и J меньше I.
После заполнения массива A значениями 1, которые удовлетворяют условию, происходит печать массива A.
Наконец, цикл заканчивается и программа завершается.