Напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет максимальный среди чётных положительных элементов этого массива. входные данные входная строка содержит три числа: границы диапазона случайных чисел a и b , а также размер массива n . все числа разделены пробелами. гарантируется, что 0 < n ≤ 10000 . выходные данные в первой строке программа должна вывести n элементов построенного массива, разделив их пробелами, а во второй строке – максимальный из чётных положительных элементов этого массива. если в массиве нет таких элементов, программа должна вывести число -1. b паскале
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