Определить чаще всего встречающийся элемент массива - QBasic

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

1. Составьте программу, определяющую чаще всего встречающийся элемент данного массива B(N). 2. Составьте программу, генерирующую одномерный массив В, содержащий только те элементы одномерного массива A(N), что удовлетворяют условию: квадратный трёхчлен x^2-2*A(J)*x-Q не имеет действительных корней. 3. Составьте программу, проверяющую, есть ли в одномерных массивах A(T), B(T) одинаковые элементы, и отыскивающую среди них наибольший, если названные элементы в массивах присутствуют.

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

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

CLS
INPUT "kol-vo elementov"; t
DIM a(t), b(t), c(t)
PRINT "zapolnit vrychnuy? (y/n)"
DO
    INPUT yn$
LOOP UNTIL yn$ = "Y" OR yn$ = "y" OR yn$ = "n" OR yn$ = "N"
IF yn$ = "Y" OR yn$ = "y" THEN GOTO 1 ELSE GOTO 2
1 PRINT "zapolnenie massiva A"
FOR i = 1 TO t
    PRINT "vvedite"; i; "element"
    INPUT a(i)
NEXT
PRINT "zapolnenie massiva B"
FOR i = 1 TO t
    PRINT "vvedite"; i; "element"
    INPUT b(i)
NEXT
GOTO 3
2 FOR i = 1 TO t
    a(i) = INT(100 * RND(1) - 25)
    b(i) = INT(100 * RND(1) - 25)
NEXT
3 CLS
PRINT "massiv A:"
FOR i = 1 TO t
    PRINT a(i);
NEXT
PRINT
PRINT "massiv B:"
FOR i = 1 TO t
    PRINT b(i);
NEXT
PRINT
FOR i1 = 1 TO t
    FOR i2 = 1 TO t
        IF a(i1) = b(i2) THEN p = p + 1: c(p) = a(i1)
NEXT: NEXT
IF p = 0 THEN PRINT "takix net": GOTO 4
IF p = 1 THEN PRINT "max="; c(1): GOTO 4
max = c(1)
FOR i = 2 TO p
    IF max < c(i) THEN max = c(i)
NEXT
PRINT "max="; max
4 END

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

Пользователю предлагается ввести количество элементов массива.
Создаются три массива: a, b и c.
Пользователю предлагается заполнить массив a.
Пользователю предлагается заполнить массив b.
Массив a заполняется случайными числами от 25 до 75.
Массив b также заполняется случайными числами от 25 до 75.
Выводится массив a.
Выводится массив b.
Происходит сравнение элементов массива a и b, и если они совпадают, то к счетчику p прибавляется единица, и элемент, который был введен пользователем, записывается в массив c.
Если p равно нулю, выводится сообщение таких нет.
Если p равно единице, выводится сообщение максимум равен, и далее выводится максимальное значение.
Если p больше единицы, то в цикле сравниваются все элементы массива c, и если какой-то из них меньше максимального значения, то он становится новым максимальным значением.
Выводится максимальное значение.