В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
rot3
rot3
14.02.2023 11:52 •  Информатика

Склавиатуры вводится массив из n элементов (0-100) а) найти максимальный и минимальный б) найти количество < 30 в) найти количество = 100 г) вывести 3 различных лучших результата

Показать ответ
Ответ:
yul19758694
yul19758694
07.10.2020 17:06
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
  Writeln(' , меньших 30: ',a.Where(t->t<30).Count);
  Writeln(' , равных 100: ',a.Where(t->t=100).Count);
  Write('Три различных лучших результата: ');
  a.Distinct.OrderByDescending(t->t).Take(3).Println
end.

Пример
n= 23
Вводите: 92 51 93 33 7 60 47 71 24 17 49 35 7 31 6 74 51 86 51 86 100 48 54
, меньших 30: 5
, равных 100: 1
Три различных лучших результата: 100 93 92
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота