===== PascalABC.NET =====
begin
var a :=ArrRandom(10, -99, 99);
a.Println;
var s := a.Where(p -> p mod 8 = 0);
if a.Count = 0 then
Println('No')
else
s.Average.Println
end.
===== PascalABC.NET =====
begin
var a :=ArrRandom(10, -99, 99);
a.Println;
var s := a.Where(p -> p mod 8 = 0);
if a.Count = 0 then
Println('No')
else
s.Average.Println
end.