PascalABC.NET 3.6.2
begin
var l := ReadInteger();
var A := ReadSeqInteger(l);
a.Where(p -> (p mod 10 = 3) or (p mod 10 = 7)).Average.Println;
end.
Объяснение:
