===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 5, 15);
a.Println;
Print('Четных -', a.Count(p -> p.IsEven))
end.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 5, 15);
a.Println;
Print('Четных -', a.Count(p -> p.IsEven))
end.