Ответ:

PascalABC.NET

begin

 var N := ReadInteger();

 var A := ReadArrInteger(N);

 A.Where(x-> (x mod 2 <> 0) and (x mod 10 <> 1)).Count.Println;

end.

Объяснение: