• Составить процедуру вычисления среднего арифметического элементов одномерного массива A[T]. Массив заполнить случайным образом.

Ответы 1

  • PascalABC const     n = 10; type    mas = array [1..n] of integer;  procedure SrM(a : mas; var b : real);  var    i : integer;    S : integer;  begin   s := 0;   for i := 1 to n do    S := S + a[i];   b := S / n;  end;  var   a : mas;   i : integer;   Sr : real;  begin  for i := 1 to n do   a[i] := -10 + random (20);     SrM (a,Sr);   writeln (Sr:3:2); end.
  • Добавить свой ответ

Войти через Google

или

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

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

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