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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years