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

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.