Определите среднее арифметическое элементов последовательности, завершающейся числом 0. Число 0 в последовательность не входит. Числа, следующие за нулем, считывать не нужно. Входные данные Вводится последовательность целых чисел. Ввод завершается, когда будет введено число 0. Выходные данные Выведите одно число - среднее арифметическое элементов последовательности

+3
Ответы (1)
  1. 16 августа, 13:28
    0
    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.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Определите среднее арифметическое элементов последовательности, завершающейся числом 0. Число 0 в последовательность не входит. Числа, ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы