===== PascalABC.NET =====
begin
var a := ArrRandom(25, -50, 60);
a.Println;
a.Where(p -> (p > 0) and (p mod 7 = 0))
.DefaultIfEmpty
.Average
.Println
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(25, -50, 60);
a.Println;
a.Where(p -> (p > 0) and (p mod 7 = 0))
.DefaultIfEmpty
.Average
.Println
end.