Вопрос по информатике:
Напишите программу, которая находит в массиве количество элементов, равных максимальному. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести два числа, разделив их пробелом: максимальный элемент массива и количество элементов массива, равных максимальному.
Примеры
входные данные 6 1 2 3 2 3 3
выходные данные 3 3
Помогите,пожалуйста, написать программу в паскале, у что-то не получается
- 21.04.2015 20:36
- Информатика
- remove_red_eye 15708
- thumb_up 17
Ответы и объяснения 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 некорректны, поскольку по условию должно быть две входные строки. На этом основании эти данные были разбиты на две строки и соответственно был организован их ввод.
- 22.04.2015 12:48
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.