<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
1999............... MCMXCIX
использовать Робот
алг
нач
нц пока снизу не свободно
закрасить
вправо
кц
нц пока снизу свободно
вправо
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока справа не свободно
закрасить
вверх
кц
нц пока справа свободно
вверх
кц
нц пока справа не свободно
закрасить
вверх
кц
кон
Program wte;Var x,y :real;Begin x:=7; y:=((2*x+3)*(7*x-5)); Write('y-',y)end.
ТОчно нз