Найти количество максимальных элементов массива, используя только один оператор цикла - Pascal ABC
Формулировка задачи:
Найти количество максимальных элементов массива, используя только один оператор цикла.
Решение задачи: «Найти количество максимальных элементов массива, используя только один оператор цикла»
textual
Листинг программы
var i, n, a, max, count: integer; begin write('Enter N = '); readln(n); max := 0; count := 0; writeln('Enter array:'); for i := 1 to n do begin read(a); if a > max then begin max := a; count := 1; end else if a = max then inc(count) end; writeln('Count max = ', count); end.
Объяснение кода листинга программы
- Переменные объявлены: i, n, a, max, count - целочисленные типы данных.
- Запрашивается количество элементов массива (переменная n).
- Инициализируются переменные max и count значением 0.
- Выводится приглашение для ввода массива.
- В цикле for происходит чтение каждого элемента массива (переменная i от 1 до n).
- Проверяется условие: если текущий элемент больше max, то обновляется значение max и count. Если текущий элемент равен max, то увеличивается count.
- После окончания цикла выводится количество максимальных элементов в массиве (переменная count).
- Конец программы.