ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, заканчивающаяся нулём. Необходимо

Question

ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, заканчивающаяся нулём. Необходимо

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

Задать свой вопрос

Александра Панцакова
Информатика
2019-07-13 06:55:12
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

кто авторы учения консерватизма???

омоним на слова ласка пожалуйста

С подмогою учебника допиши определения.1)Явления природы-это....,происходящие в

Помогите с этими 2-мя заданиями !

Воздействие выдающихся людей на публичное развитие

как это осознать (номер 6)

-4+3x=8x+5помогите решить уравнение .^_^

Обозначение мягенькие и твёрдые согласные..слова пила схема

какие приборы нужны для измерения размеров малых тел методом рядов ?

Помогите написать сочинение на тему: quot;Я десятиклассницаquot;. Заблаговременно спасибо)

Виолетта Арзина · Answer 1 · 2019-07-13 07:00:01+3:00

Var a,s,k:integer;
begin
writeln('Вводите числа:');
readln(a);
s:=0; k:=0;
while alt;gt;0 do
begin
k:=k+1;
s:=s+a;
readln(a);
end;
writeln('Среднее арифметическое = ',trunc(s/k));
end.

Пример:
Вводите числа:
5
3
9
4
7
0
Среднее арифметическое = 5

О проекте

ПАСКАЛЬ ДАЮ 45 БАЛЛОВ.Дана последовательность целых чисел, заканчивающаяся нулём. Необходимо

Добро пожаловать!