Question

Дана последовательность случайных натуральных чисел, лежащих в диапазоне от 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

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.