Уровень 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.