Дана последовательность случайных натуральных чисел, лежащих в диапазоне от 1 до 255. Конец последовательности число 0. Определить среднее арифметическое элементов последовательности.

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

3 теста

Пример работы программы:

Ввод: 1 2 3 4 5 6 7 8 9 0

Вывод: 005.000

Ввод: 0

Вывод: 000.000

Ввод: 17 5 200 88 0

Вывод: 077.500

Question

Информатика

Эммануилка

18 июля, 15:39

Дана последовательность случайных натуральных чисел, лежащих в диапазоне от 1 до 255. Конец последовательности число 0. Определить среднее арифметическое элементов последовательности.

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

3 теста

Пример работы программы:

Ввод: 1 2 3 4 5 6 7 8 9 0

Вывод: 005.000

Ввод: 0

Вывод: 000.000

Ввод: 17 5 200 88 0

Вывод: 077.500

+3

Ответы (1)

Знаете ответ на вопрос?

Ждан · Answer 1

Program z7; Var i, n, s:integer; a:array [1 ... 1000] of integer; p:real; Begin n:=0; for i : = 1 to 1000 do begin read (a[i]) ; n:=n+1; if (a[i] = 0) then break; end; for i : = 1 to n do begin write (a[i],' ') ; end; s:=0; for i:=1 to n do s:=s+a[i]; p:=s/n; writeln; writeln (p:3:3) ; End.