Мосей
5 год назад
Определите среднее значение всех элементов последовательности, завершающейся числом 0.Использовать массивы в данной задаче нельзя.Входные данныеВводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит, а служит как признак ее окончания.Выходные данныеВыведите ответ на задачу.Примерывходные данные1790выходные данные5.66666666667
ОТВЕТЫ
Artur
Oct 24, 2020
А массив тут и не нужен. Накапливаем сумму и подсчитываем количество введенных чисел. Их этих двух величин получаем среднее.
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.
621
Смежные вопросы:
