Определите среднее значение всех элементов последовательности, завершающейся числом 0.
Использовать массивы в данной задаче нельзя.
Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак ее окончания.
Выходные данные
Выведите ответ на задачу.
Примеры
входные данные
1
7
9
0
выходные данные
5.66666666667
Ответы
Ответ дал:
0
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.
var
m,n,s:integer;
begin
s:=0; n:=0;
repeat
Read(m);
if m<>0 then begin s:=s+m; n:=n+1 end
until m=0;
if n>0 then Writeln(s/n)
else Writeln('Ничего не введено')
end.
Ответ дал:
0
Тебе сложно это сделать?
Похожие вопросы
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад