Question

Паскаль:Дан массив целых чисел. Элементы массива-случайные числа из диапазона [5,15]. Определить количество чётных элементов массива​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, 5, 15);

 a.Println;

 Print('Четных -', a.Count(p -> p.IsEven))

end.