• ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, оканчивающаяся нулём. Необходимо найти среднее арифметическое чисел этой последовательности. Ноль числом последовательности не считается.
    ФОРМАТЫ ВХОДНЫХ ДАННЫХ:
    Вводится не более, чем 2 в 15 степени целых чисел, каждое из которых не превосходит по модулю (2в 15 степени − 1). После последнего числа вводится 0. Гарантируется, что последовательность не пустая.
    Форматы выходных данных:
    Требуется вывести одно число — искомое среднее арифметическое. Результат целочисленно округлите вниз.

Ответы 2

  • Спасибо!!!!
    • Автор:

      nikivbed
    • 6 лет назад
    • 0
  • var a,s,k:integer;beginwriteln('Вводите числа:');readln(a);s:=0; k:=0;while a<>0 do begin k:=k+1; s:=s+a; readln(a); end;writeln('Среднее арифметическое = ',trunc(s/k));end.Пример:Вводите числа:539470Среднее арифметическое = 5
    • Автор:

      mason12
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years