(Сам и контр)

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

Босова, Босова, Аквилянов

11 класс

Автор

Босова, Босова, Аквилянов

Оцени решение

← Предыдущий Следующий →

Сообщить об ошибке

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

Задача

Наибольший элемент равен:……
Количество элементов, имеющих максимальное значение, равно: ……
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

Подробный ответ

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

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.