Вопрос по информатике:
PascalABCNET
Сначала вводим количество строчек N, где 1<=N <=10^6
Затем вводим с клавиатуры Фамилии, имена и баллы, где балл от 0 до 100.
Нужно вывести фамилию и максимальный балл, если таких людей с максимальным баллом несколько, то просто вывести количество таких людей.
Помогите с прогой пожалуйста, очень прошу)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.12.2016 00:47
- Информатика
- remove_red_eye 17159
- thumb_up 46
Ответы и объяснения 1
begin
var n := ReadlnInteger;
var Data := ArrGen(n, x -> ReadlnString.ToWords);
var MaxScore := Data.Max(x -> x[2].ToInteger);
Data.Where(x -> x[2].ToInteger = MaxScore).Select(x ->
x.JoinIntoString).Print(NewLine)
end.
Ввод:
5
Георгий Сазонов 65
Матвей Панфилов 39
Василий Колобов 85
Иван Кириллов 72
Юрий Гришин 85
Вывод:
Василий Колобов 85
Юрий Гришин 85
- 09.12.2016 08:44
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.