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

Решение #1

Изображение 5. Напишите программу. Дан целочисленный массив С[1..100]. Подсчитайте, сколько элементов этого массива имеют максимальное значение.Наибольший элемент...
Приложенные файлы
Загрузка...

Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
5. Напишите программу. Дан целочисленный массив С[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
*Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания.

Похожие решебники

*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением