Уровень C. Введите массив с клавиатуры и найдите (за один проход) количество элементов, имеющих максимальное значение. Пример: Массив: 3 4 5 5 3 4 5 Максимальное значение 5 Количество элементов 3

Создадим массив, который будет содержать семь элементов и иметь тип integer, и назовем его A:

A : array [1 ... 7] of integer;

Заполним его некоторыми произвольными числами вручную, как сказано в задаче:

A[1] : = 5;

A[2] : = 7;

A[3] : = 3;

A[4] : = 7;

A[5] : = 4;

A[6] : = 5;

A[7] : = 7;

Пройдем по нему один раз и добавим несколько условий:

for i:integer : = 1 to 7 do

(if A[1] > max_a) then

begin

max_a : = A[i];

(if kol > 0) then

kol : = 1;

end;

else if (A[i] = max_A)

kol : = kol + 1;

Смысл в том, чтобы когда цикл находит новое большее число, он должен сбросить счетчик на значение 1.

А когда элемент равен максимальному, нарастить счетчик.