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

• const n = 10;
• var
  X: array
  \[1\.\.n\]
  of integer;
  count, m, i: integer;
• Begin
• for i := 1 to n do Read\(X⟨1⟩\);
• count := 0;
  m := -1 * maxint;
• for i := 1 to n do
  if X
  \[i\]
  > m then
• begin
  m := X
  \[i\]
  ;
  count := 1;
  end
• else
  if X
  \[i\]
  = m then count := count + 1;
• write\(count\);
• end.