Составить подпрограмму вычисления среднего арифметического элементов вектора - Turbo Pascal (250447)

Формулировка задачи:

Составить подпрограмму Вычисления среднего арифметического элементов вектора. Используя ее, преобразовать преобразовать квадратную матрицу следующим образом: диагональные элементы матрицы заменить средними арифметическими значениями элементов соответствующих строк.

Решение задачи: «Составить подпрограмму вычисления среднего арифметического элементов вектора»

Листинг программы

function Avg(const v: array of Real; n: Integer): Real;
var i: Integer; r: Real;
begin
  r:=0; for i:=0 to n-1 do r:=r+v[i];
  Avg:=r/n;
end;
{ ... }
  for i:=1 to n do begin
    t:=Avg(a[i],n); a[i,i]:=t; a[i,n-i+1]:=t;
  end;
{ ... }

Объяснение кода листинга программы

В данном коде реализована подпрограмма вычисления среднего арифметического элементов вектора.

Объявлена функция Avg, которая принимает два аргумента:
- v: ссылка на массив вектора
- n: количество элементов вектора
Внутри функции объявлены две переменные:
- i: счётчик для цикла
- r: переменная для хранения суммы элементов вектора
С помощью цикла for происходит итерация по всем элементам вектора. На каждой итерации значение текущего элемента прибавляется к переменной r.
После завершения цикла, значение переменной r делится на количество элементов вектора n и присваивается переменной Avg.
По завершении функции Avg, происходит вычисление среднего арифметического элементов вектора для каждого подмассива a[i].
Для каждого подмассива a[i] вызывается функция Avg с аргументами a[i] и n. Полученное значение t присваивается элементам a[i,i] и a[i,n-i+1].