Вопрос по информатике:
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет максимальный среди чётных положительных элементов этого массива.
Входные данные
Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 .
Выходные данные
В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – максимальный из чётных положительных элементов этого массива. Если в массиве нет таких элементов, программа должна вывести число -1.
B Паскале
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.02.2016 16:46
- Информатика
- remove_red_eye 9454
- thumb_up 20
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
var n,a,b:integer;
Read(a,b,n);
var mas:=ArrRandom(n,a,b); mas.Println;
var s:=mas.Where(x->x.IsEven and (x>0));
if s.Any then Writeln(s.Max)
else Writeln(-1)
end.
Тестовые решения:
-10 100 20
52 57 39 5 52 40 94 -2 -7 24 65 -6 22 77 2 41 48 83 19 69
94
-10 -2 8
-6 -9 -2 -8 -3 -9 -4 -7
-1
- 21.02.2016 10:14
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.