begin
read(n);
while (n <> 0) do // пока не равно нулю делать
s := s + n;
k = k + 1;
end.
writeln(s/k); // среднее
writeln(s); // сумма
Переменные сам объяви. s и к должны быть типа real
Если что-то не понятно пиши в ЛС
begin
read(n);
while (n <> 0) do // пока не равно нулю делать
begin
s := s + n;
k = k + 1;
end.
writeln(s/k); // среднее
writeln(s); // сумма
end.
Переменные сам объяви. s и к должны быть типа real
Если что-то не понятно пиши в ЛС