- 26.12.2016 21:33
- Информатика
- remove_red_eye 5985
- thumb_up 50
Ответы и объяснения 1
// PascalABC.NET 3.0, сборка 1128
begin
var n:=ReadInteger('Количество элементов:');
var a:=ArrRandom(n,-10,20).Println(',');
Writeln('Минимальное среди четных положительных: ',
a.Where(x->(x mod 2=0) and (x>0)).OrderBy(x->x).First)
end.
Тестовое решение:
Количество элементов:15
14,8,14,-8,17,-7,-7,-7,-1,-3,12,-3,-4,3,7
Минимальное среди четных положительных: 8
- 27.12.2016 08:10
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.