• Напишите программу, которая для последовательности натуральных чисел находит среднее арифметическое. Программа получает на вход числа, кол-во чисел неизвестно, последовательность заканчивается числом 0 (0 в последовательность не входит)

Ответы 1

  • var  a: array[1..1000] of integer;  sa: real;  i: byte;begin  writeln ('Введите числа: ');  i:=0;  sa:=0;  repeat    i:=i+1;    read (a[i]);    sa:=sa+a[i];  until a[i]=0;  sa:=sa/(i-1);  writeln ('Среднее арифметическое чисел = ',sa);end.----------------------------------------------Пример:Введите числа: 2 4 2 4 2 4 0 Среднее арифметическое чисел = 3
    • Автор:

      heiditpua
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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