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.