Question

Дано N положительных целых чисел. Сколько среди них четных трехзначных????

Answer 1

Ответ:

• begin
• var a := ReadArrInteger(ReadInteger('N:'));
• Println('Результат:', a.Count(x -> (x.IsEven) and (x in 100..999)));
• end.

Пример работы: