Question

Задача №1: Напишите программу, которая в последовательности натуральных чисел определяет количество двузначных четных чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Задача №2: Напишите программу, которая в последовательности натуральных чисел определяет среднее арифметическое чисел, кратных 7, или сообщает что таких чисел нет (выводит "NO"). Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000.

PASCAL , задания написать отдельно

Answer 1

===== PascalABC.NET =====

=1=

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p.IsEven and p.InRange(10, 99)).Print

end.

=2=

begin

 var n := ReadInteger;

 var m := ReadSeqInteger(n)

       .Where(p -> p mod 7 = 0)

       .DefaultIfEmpty

       .Average;

 if m = 0 then

   Print('NO')

 else

   Print(m)

end.