Задание 8 Параграф 2.2 ГДЗ Босова 9 класс 2017 (Информатика)

Рассмотрим вариант решения задания из учебника Босова 9 класс, Бином: 8. Дан массив из десяти целых чисел. Напишите программу подсчёта количества элементов этого массива, имеющих максимальное значение. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 9 bosova9 2-2/8 938

Сначала находим максимальный элемент массива, а затем считаем, сколько раз он встречается.

program mmm;
const
  n = 10;
var
  i, max, k: integer;
  a: array [1..n] of integer;
begin
  k := 0;
  randomize;
  for i := 1 to n do
    a[i] := random(100);
  max := a[1];
  for i := 2 to n do
    if max < a[i] then max := a[i];
  for i := 1 to n do
    if a[i] = max then k := k + 1;
  writeln(‘Количество элементов, имеющих максимальное значение = ‘, k);
end.

В первой части программы массив заполняется случайными числами. Затем переменная max получает значение первого элемента массива. После этого в цикле находится наибольший элемент. В последнем цикле подсчитывается количество элементов, равных найденному максимуму.

Ответ: программа подсчитывает количество элементов массива, имеющих максимальное значение.