Наиболее часто встречающийся элемент в массиве целых чисел - QBasic

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

Найти наиболее часто встречающийся элемент в массиве целых чисел. Помогите плес.

Решение задачи: «Наиболее часто встречающийся элемент в массиве целых чисел»

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

RANDOMIZE TIMER
DIM a(1000),b(1000)
INPUT n
max=0
FOR i=1 TO n
a(i)=INT(RND*20)+1
PRINT a(i);
b(a(i))=b(a(i))+1
IF b(a(i))>max THEN max=b(a(i)):element=a(i)
NEXT
PRINT
PRINT "max=";max
PRINT "element=";element

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

RANDOMIZE TIMER - данная команда инициализирует генератор случайных чисел
DIM a(1000),b(1000) - здесь происходит объявление двух массивов a и b по 1000 элементов каждый
INPUT n - ввод количества элементов для обработки (необходимо ввести целое число от 1 до 1000)
max=0 - инициализация переменной max значением 0
FOR i=1 TO n - начало цикла, который будет выполняться от 1 до n раз
a(i)=INT(RND*20)+1 - генерация случайного числа от 1 до 20 и его сохранение в элементе массива a с индексом i
PRINT a(i); - вывод значения элемента массива a с индексом i на экран
b(a(i))=b(a(i))+1 - увеличение значения элемента массива b с индексом a(i) на 1
IF b(a(i))>max THEN max=b(a(i)):element=a(i) - если значение элемента массива b с индексом a(i) больше текущего значения max, то обновление max значением b(a(i)) и сохранение индекса элемента в переменную element
NEXT - завершение цикла
PRINT - вывод на экран всех элементов массива a
PRINTmax=;max - вывод значения переменной max на экран
PRINTelement=;element - вывод значения переменной element на экран