Напишите программу, которая в последовательности определяет количество нечетных чисел , не оканчивающихся на 1 . Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна не оканчивающихся на 1 вывести одно число - количество нечётных чисел последовательности, не оканчивающихся на 1
PascalABC.NET 3.5.1
begin
var N := ReadInteger('N = ');
var S := ReadSeqInteger(N);
S.Where(p -> (p mod 2 <> 0) and (p mod 10 <> 1)).Count.Println;
end.
Объяснение: