Задание 5 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

1. Напишите программу. Дан целочисленный массив $$C[1..100]$$. Подсчитайте, сколько элементов этого массива имеют максимальное значение.

   Наибольший элемент равен: ……

   Количество элементов, имеющих максимальное значение, равно: ……

Сначала находим максимальный элемент массива. Для этого принимаем за максимум первый элемент и последовательно сравниваем его со всеми остальными. Затем ещё раз проходим по массиву и считаем, сколько раз встречается найденный максимум.

program s4_v3_5;
const
  n = 100;
var
  c: array[1..n] of integer;
  i, max, k: integer;
begin
  writeln(‘ввод массива’);
  randomize;
  for i := 1 to n do
    c[i] := random(100);
  max := c[1];
  for i := 1 to n do
    if c[i] > max then max := c[i];
  k := 0;
  for i := 1 to n do
    if c[i] = max then k := k + 1;
  writeln(‘max=’, max, ‘ k=’, k)
end.

По результату работы программы:

Наибольший элемент равен $$98$$.

Количество элементов, имеющих максимальное значение, равно $$2$$.

Ответ

Наибольший элемент равен $$98$$, количество таких элементов — $$2$$.