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

var mas: array[1..7] of integer;k, i, MAX:integer;Beginfor 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.