Найти количество чётных элементов массива, сформированных случайным образом из отрезка [-10; 20] !

// PascalABC.NET 3.3

begin
 var a:=ArrRandom(15,-10,20); a.Println;
 writeln(a.Where(x->x mod 2=0).Count);
end.

Пример:
-1 20 7 13 -1 8 13 10 15 18 17 -6 12 11 -3
6