Написать программу одномерного массива в нем 10 - вопрос №107653920 от Марьяша16 11.02.2023 04:39

Question

Информатика: Написать программу одномерного массива в нем 10 элементов необходимо вывести на экран четные отрицательные числа

Марьяша16 · Answer

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-50,50); a.Println;
Write('Четные отрицательные: ');
a.Where(x->x.IsEven and (x<0)).Println
end.

Пример
29 43 4 -21 -28 -16 -46 7 5 13
Четные отрицательные: -28 -16 -46