Отыскать в одномерном массиве элемент, встречающийся наибольшее число раз - QBasic (28128)

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

1. Составьте программу, отыскивающую в одномерном массиве А(N) элемент, встречающийся наибольшее число раз и, если таких чисел несколько, то выбирающую из них наименьшее. 2. Составьте программу, генерирующую одномерный массив X(N), каждый элемент X[I] которого равен минимальному из чисел Y[1], Y[2], ..., Y[I], где указанные числа суть элементы одномерного массива Y(N). 3. Составьте программу, отыскивающую номер первого по порядку нулевого элемента одномерного массива W(N).

Решение задачи: «Отыскать в одномерном массиве элемент, встречающийся наибольшее число раз»

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

INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    INPUT "input data"; a(i)
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
FOR i = 1 TO n: k = 0: FOR j = 1 TO n
        k = k - (a(j) = a(i))
    NEXT
    IF k > m THEN m = k: q = a(i)
    IF k = m AND a(i) < q THEN q = a(i)
NEXT
PRINT "q="; q

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

В первой строке ввода пользователь вводит число n.
Затем программа выделяет память под массив a размером n.
Далее программа запрашивает у пользователя ввести данные для заполнения массива a и сохраняет их в соответствующих ячейках массива.
Затем программа выводит на экран все элементы массива a.
Далее программа начинает искать в массиве элемент, который встречается наибольшее количество раз.
Для этого программа выполняет два вложенных цикла.
В первом цикле на каждом шаге выполняется операция сравнения a(j) = a(i) и если она истинна, то переменная k уменьшается на единицу.
Во втором цикле на каждом шаге выполняется проверка, является ли текущее значение k максимальным.
Если это так, то переменная m заменяется на текущее значение k, а переменная q на текущее значение a(i).
Если k = m и a(i) < q, то q заменяется на a(i).
По завершении второго вложенного цикла программа выводит на экран значение переменной q.
Значение переменной q содержит элемент, который встречается наибольшее количество раз в массиве a.