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

Пример:

Массив:

3 4 5 5 3 4 5

Максимальное значение 5

Количество элементов 3

Var

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

k, i, MAX:integer;

Begin

for i:=1 to 7 do

Begin

writeln ('Введите число') ;

readln (mas[i]) ;

end;

MAX:=mas[1];

k:=1;

for i:=2 to 7 do

Begin

if mas[i] > MAX

then

Begin

MAX:=mas[i];

k:=1;

end

else

if MAX=mas[i]

then k:=k+1;

end;

writeln () ;

writeln ('Максимальное значение = ', MAX) ;

writeln ('Количество элементов = ', k) ;

readln () ;

end.