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