begin
var a := ArrRandom(20, -10, 10);
a.Println;
Writeln('Искомое количество чисел ',
a.Where(t -> (t < 0) and t.IsEven).Count)
end.
0 0 -4 -3 8 -10 -4 10 -1 -5 7 1 5 -10 -8 5 8 7 -8 6
Искомое количество чисел 6
begin
var a := ArrRandom(20, -10, 10);
a.Println;
Writeln('Искомое количество чисел ',
a.Where(t -> (t < 0) and t.IsEven).Count)
end.
Пример0 0 -4 -3 8 -10 -4 10 -1 -5 7 1 5 -10 -8 5 8 7 -8 6
Искомое количество чисел 6