Напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет максимальный среди чётных положительных элементов этого массива. входные данные входная строка содержит три числа: границы диапазона случайных чисел a и b , а также размер массива n . все числа разделены пробелами. гарантируется, что 0 < n ≤ 10000 . выходные данные в первой строке программа должна вывести n элементов построенного массива, разделив их пробелами, а во второй строке – максимальный из чётных положительных элементов этого массива. если в массиве нет таких элементов, программа должна вывести число -1. b паскале
jgjgjgjh
2
23.07.2019 02:10
24
Другие вопросы по теме Информатика
ieoeoeoeosikskd
25.06.2019 01:00
naumovvalera96
31.03.2022 06:35
Pomidorka213
31.03.2022 06:08
vikakocherzhuk
11.09.2021 22:28
Екатерина2987
11.09.2021 22:22
ДарьяOver
31.05.2019 15:10
marichkakyhar
27.09.2019 18:50
dan776
27.09.2019 18:50
hoivamvrot
27.09.2019 18:50
Популярные вопросы
- Вычислите сумму чисел х и у, при х=а7(16) у=67(8) представьте результат...
3 - Зачеркни 4 палочки так чтобы осталось 3 квадрата(прямоугольник разделен...
3 - Вбаке 45 литров воды что составляет 3 восьмых вместимости всего пока сколько...
1 - Как сократить дробь 45469/41033 ( как прийти к 1109)...
1 - Письмо ветерану на двойном листке ! 19 ....
1 - Найдите длину окружности если её диаметр 13 см. как сделать краткую запись?...
2 - Сочинение мой любимый фильм на языке с переводом...
2 - Найдите первый член арифметической прогрессии, если d=3, a23=47...
1 - Вычисли дискриминант квадратного уравнения и укажи его корни2х в квадрате*3х+1=0...
2 - Imy granny last week. варианты a) has visited b) visits c) was visiting...
1
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