Question

Помогите пожалуйста написать программу на Pascal ABC
Даю 15 баллов!

Answer 1

Ответ:

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.

Объяснение: