процедуры паскаль

[mono]

Для матрицы А (4 строки, 5 столбцов) вычислить выражение Y=M(1)M(5)+M(2)M(4)+M(5)M(1), где M(k) – значение наибольшего элемента в K-ом столбце этой матрицы. Для поиска наибольшего элемента в произвольном столбце матрицы использовать процедуру.

[Stilet]

Ну и с чем проблемы, со знанием языка или со стратегией?

[mono]

Не знаю как создать процедуру, чтобы туда записывались максимальные элементы

[maladoy]

// Для поиска наибольшего элемента в произвольном столбце матрицы
// использовать процедуру.
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;
 // функция для поиска того же самого
 // лучше использовать ее имхо!
 function maxvst(var k:integer;var a:matr;):integer;
 var m:integer
 begin
 m:=a[1,k];
 for i:=2 to 4 do
 if a[i,k]> m then m:=a[i,k];
maxvst:=m;
 end;

[mono]

спасибо огромное.

program matr;
uses crt;
type matr=array[1..4,1..5] of integer;
procedure EnterMatr(x,y:integer; var M:matr);
var i,j:integer;
begin
     writeln ('vvedite elementi matrici');
     for i:=1 to x do
     for j:=1 to y do begin
     write ('M[',i,',',j,']=');
     readln (M[i,j]);
     end;
end;
procedure MaxVSt(var j:integer; var A:matr; var maxs:integer);
var i:integer;
begin
     maxs:=a[1,j];
     for i:=2 to 4 do
     if a[i,j]>maxs then maxs:=a[i,j];
end;
var
  A:matr; Y:integer;
begin
  EnterMatr(4,5,A);
  Y:=MaxVSt(1)*MaxVSt(5)+MaxVSt(2)*MaxVSt(4)+MaxVSt(5)*MaxVSt(1);
  Writeln('Y=',Y);
  Readln;
end.

Y:=MaxVSt(1)*MaxVSt(5)+MaxVSt(2)*Ma xVSt(4)+MaxVSt(5)*MaxVSt(1);

вот тут ошибка какая-то. посмотрите, пожалуйста

[__STDC__]

странно ты процедуру вызваешь... аргументов не хватает

procedure MaxVSt(var j:integer; var A:matr; var maxs:integer); //три аргумента
...
...:=MaxVSt(1)*...//один аргумент

аналогично во всех остальных вызовах

[mono]

var
  A:matr; i:integer:
  m:array[1..5] of integer;
begin
  EnterMatr(4,5,A);
  for i:=1 to 5 do MaxVSt(i,A,m[i]);
  Writeln('Y=',M[1]*[5]+M[2]*M[4]+M[5]*M[1]);
end.

вот так
спасибо ещё раз