Напишите программу, которая находит в массиве количество элементов, равных максимальному....

Question

Напишите программу, которая находит в массиве количество элементов, равных максимальному. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.
Примеры
входные данные 6 1 2 3 2 3 3
выходные данные 3 3
Помогите,пожалуйста, написать программу в паскале, у что-то не получается

Answer 1

// PascalABC.NET 3.0, сборка 1111
begin
  var n:=ReadInteger();
  var a:=ReadArrInteger(n);
  var mx:=a.Max;
  WriteFormat('{0} {1}',mx,a.Where(x->(x=mx)).Count)
end.

Тестовое решение:
6
1 2 3 2 3 3
3 3

Замечание:
Предложенные в задании входные данные 6 1 2 3 2 3 3 некорректны, поскольку по условию должно быть две входные строки. На этом основании эти данные были разбиты на две строки и соответственно был организован их ввод.

Comments

входные данные

---

в первой строке 6

---

во второй 1 2 3 2 3 3

---

Как Вы можете видеть, контрольное решение было именно на таких данных проведено.

---

спасибо