Задача по информатике

Question

Задача по информатике

---

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->t.Between(10,99)).ToArray;
  if a.Length=0 then Writeln('NO')
  else Writeln(a.Average)
end.

Answer 2

var
tmp,sum,cnt:real;
begin
while true do begin
read(tmp);
if tmp = 0 then break;
if (abs(tmp) >= 100)or(abs(tmp) <= 9) then continue;<br>sum:=sum + tmp;
cnt:=cnt + 1;
end;
if cnt = 0 then
   Writeln('NO')
else
   Writeln(sum/cnt);
end.