begin
var a := ArrRandom(8, 0, 10);
a.Println;
$'Количество четных равно {a.Where(t->t.IsEven).Count}'.Println
end.
begin
var a := ArrRandom(8, 0, 10);
a.Println;
$'Количество четных равно {a.Where(t->t.IsEven).Count}'.Println
end.