Дана последовательность случайных натуральных чисел, лежащих в диапазоне от 1 до 255. Конец последовательности число 0. Определить среднее арифметическое элементов последовательности. Обращаю внимание на нетипичный шаблонный вы...
Дана последовательность случайных натуральных чисел, лежащих в диапазоне от 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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы