Дан одномерный массив целого типа. Получить другой массив, состоящий только из чисел исходного массива, больше 10 и кратных 3, или сообщить, что таких чисел нет. Полученный массив вывести в порядке убывания элементов.
// PascalABC.NET 3.0, сборка 1088
begin
var n:=ReadInteger(Количество элементов: );
var a:=ArrRandom(n,1,99);
a.PrintLn(,);
var b:=a.Where(x->(x>10) and (x mod 3 = 0)).ToArray;
if b.Length=0 then Writeln(Нет нужных элементов)
else b.OrderByDescending(x->x).Println(,)
end.
Тестовое решение:
Количество элементов: 15
54,12,98,26,18,21,10,61,62,22,89,11,1,7,75
75,54,21,18,12
Оцени ответ
