процедуры паскаль
Для матрицы А (4 строки, 5 столбцов) вычислить выражение Y=M(1)M(5)+M(2)M(4)+M(5)M(1), где M(k) – значение наибольшего элемента в K-ом столбце этой матрицы. Для поиска наибольшего элемента в произвольном столбце матрицы использовать процедуру.
с частью вычисления выражения проблемы :confused: помогите
Код:
// Для поиска наибольшего элемента в произвольном столбце матрицы
// использовать процедуру.
type
matr= array[1..4,1..5] of integer
//..............................................................
procedure max_v_st(var k:integer;var a:matr;var maxs:integer;);
begin
maxs:=a[1,k];
for i:=2 to 4 do
if a[i,k]> maxs then maxs:=a[i,k]
end;
// использовать процедуру.
type
matr= array[1..4,1..5] of integer
//..............................................................
procedure max_v_st(var k:integer;var a:matr;var maxs:integer;);
begin
maxs:=a[1,k];
for i:=2 to 4 do
if a[i,k]> maxs then maxs:=a[i,k]
end;
с частью вычисления выражения проблемы :confused: помогите