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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

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

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

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

program s4_v3_5;

const

n = 100;

var

c: array[1..n] of integer;

i,max,k: integer;

begin

writeln(taskввод массиваtask);

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(taskmax=task,max,task k=task,k)

end.

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

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