Найти среднее арифметическое значение элементов заданного массива размером 15....

Question

Найти среднее арифметическое значение элементов заданного массива размером 15.
Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение Turbo pascal

Answer 1

Var 
  a: array[1..15] of real;
  r: real;
  n, i: integer;
begin
  // заполнение
  for i:=1 to 15 do
  begin
    a[i] := i;
    write(a[i], ' ');
  end;
    
  for i:=1 to 15 do
  begin
    r := r + a[i];
    n := n + 1;
  end;
  r := r / n;
  writeln;
  writeln('Среднее ариф. ', r);
    
  // вывод
  for i := 1 to 15 do
  begin
    a[i] := a[i] - r;
    write(a[i], ' ');
  end;
end.