20 баллов за информатику, работа с программой Паскаль
Дополнительные материалы:
![](https://static.otvetit.com/aaf/aaf55d5075b8d96cf2a70eb071fbf42b.jpeg)
Ответ
1
// PascalABC.NET
begin
var m := ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p in 10..99)
.DefaultIfEmpty
.Average;
if m > 0 then
m.Print
else
Print('NO')
end.