Определите среднее арифметическое элементов последовательности, завершающейся числом 0. Число 0 в последовательность не входит. Числа,
следующие за нулем, считывать не нужно. Входные данные Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0. Выходные данные Выведите одно число - среднее арифметическое элементов последовательности
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Лера Новичкова
var
a, sum, i : integer; // объявляем переменные целочисленного типа.
begin
writeln ('введите последовательность положительных чисел, окончание ввода - ноль:');
a:= 1;
while a <> 0 do // начало цикла.
begin
readln (a); // считываем число, введенное с клавиатуры.
sum := sum + a; // считаем сумму чисел.
if (a <> 0) then // если введен не 0, то увеличиваем счетчик количества чисел.
i := i + 1;
end;
write ('Среднее арифметическое введенных чисел равно: ', sum / i); //вывод ответа на экран.
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00