Const
N = 7; //Кол-во элементов массива
Var
A:array[1..N]of integer;
M,S,i:integer;
Begin
S:=0; //В эту переменную будет записано кол-во максимальных элементов

For i:= 1 to N do
 Begin
 A[i]:=random(7)+1; //random задаёт случайное значение элемента массива А с номером i
 Write(A[i],' ') // Вывод элемента массива на экран в одной строке
 End;
WriteLn; //Переход на новую строку

M:=A[1]; //В переменную M будет записан максимальный элемент
For i:= 1 to N do
 Begin
 if A[i]>M then //если будет найден новый максимальный элемент, то
  Begin
  M:=A[i]; //М будет присвоено значение нового максимального элемента, а
  S:=0; //а количество максимальных элементов обнулиться
  End;
 
 if A[i]=M then S:=S+1 //Если будет найден элемент, равный максимальному, S увеличится на единицу
 End;

WriteLn(S) //Вывод количества максимальных элементов
End.