begin
var a := ArrRandom(10, -5, 5);
a.Println;
a.Where(t -> t = 0).Aggregate(1, (p, q)-> p * q).Println
end.
begin
var a := ArrRandom(10, -5, 5);
a.Println;
a.Where(t -> t = 0).Aggregate(1, (p, q)-> p * q).Println
end.
-4 -4 -2 -5 -2 0 -5 -2 -3 00