Найти количество максимальных элементов массива, используя только один оператор цикла - 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.

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

  1. Переменные объявлены: i, n, a, max, count - целочисленные типы данных.
  2. Запрашивается количество элементов массива (переменная n).
  3. Инициализируются переменные max и count значением 0.
  4. Выводится приглашение для ввода массива.
  5. В цикле for происходит чтение каждого элемента массива (переменная i от 1 до n).
  6. Проверяется условие: если текущий элемент больше max, то обновляется значение max и count. Если текущий элемент равен max, то увеличивается count.
  7. После окончания цикла выводится количество максимальных элементов в массиве (переменная count).
  8. Конец программы.

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы