var a, i, count, s: integer; begin repeat if(i = 100) then break; readln(a); if(abs(a) > 300) then begin writeln('число по модулю не может быть > 300.'); continue end else if(a mod 9 = 0) and (a < > 0) then begin inc(count); s : = s + a; end; if(a < > 0) then inc(i); until(a = 0); writeln('среднее арифметическое: ', s / count); end.
Поделитесь своими знаниями, ответьте на вопрос: