матрица

[shelest]

Подскажите алгоритм нахождения вектора B(l) каждый элемент которого равен среднему арифметическому соответствующего столбца матрицы.

[Chudo4258]

for j:=1 to m do 
begin
 s:=0;
 for i:=1 to n do
   s:=s+a[i,j];
 B[j]:=s/n
end;