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