Информатика 14 дней назад Rxstik217

20 баллов за информатику, работа с программой Паскаль

Дополнительные материалы:
Ответ
1
BobbyFresnel

// 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.