Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое двузначных чисел или сообщает, что таких чисел нет. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое двузначных чисел или вывести NO, если таких чисел в последовательности нет.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var r:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99))
.DefaultIfEmpty.Average;
(r>0 ? r.ToString : 'No').Println
end.