Разработайте универсальную подпрограмму, определяющую среднее арифметическое элементов в столбце С матрицы размером n×m элементов. Поместите подпрограмму в модуль. Разработайте тестирующую программу.

(Freepascal)

Переделал.

// Программаuses CustomA;var A: Matrix; n, m, i, j, C: byte;begin write('Введите n: '); readln(n); write('Введите m: '); readln(m); SetLength(A, n, m); randomize; for i := 0 to n - 1 do begin for j := 0 to m - 1 do begin A[i, j] := random(10); write(A[i, j]:10:3); end; writeln; end; write('Введите C: '); readln(C); AMC(A, C); readln;end.

// Модульunit CustomA;interfacetype Matrix = array of array of real;procedure AMC(A: Matrix; C: integer);implementationprocedure AMC;var i: byte; AM: real;begin AM := 0; for i := 0 to Length(A) - 1 do AM := AM + A[i, C - 1]; AM := AM / Length(A); writeln(AM:10:3);end;end.