В числовой последовательности определить количество элементов равных максимальному - QBasic

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

Построить блок-схему, написать программу на языке QBASIC А) В числовой последовательности А1,А2,…А100 определить количество элементов равных максимальному. Б) Ввести массив В(5,5). Получить массив С (К), элементы которого являются квадратами нечетных элементов массива В.

Решение задачи: «В числовой последовательности определить количество элементов равных максимальному»

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

CLS
RANDOMIZE TIMER
CONST n = 100
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 10 * RND
   PRINT A(i);
NEXT i
PRINT : PRINT
 
max = A(1)
 
FOR i = 1 TO n
   IF A(i) = max THEN
      k = k + 1
   ELSEIF A(i) > max THEN
      max = A(i)
      k = 1
   END IF
NEXT i
PRINT "K ="; k
END

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

Установка начальных значений переменных:
- n - количество элементов в числовой последовательности (100 элементов)
- A(1 TO n) - массив целых чисел размером n
- max - переменная для хранения максимального значения в массиве
- k - счетчик элементов массива, равных максимальному значению
Заполнение массива случайными целыми числами от 0 до 100
Поиск максимального значения в массиве и его сохранение в переменной max
Проход по всем элементам массива с целью определения количества элементов, равных максимальному значению. В начале каждого прохода устанавливается значение счетчика k равным 1. Если элемент массива равен максимальному значению, то значение счетчика увеличивается на 1. Если элемент массива больше максимального значения, то максимальное значение обновляется, а значение счетчика устанавливается равным 1.
Вывод на экран количества элементов массива, равных максимальному значению (значение переменной k)