Паскаль

[Bagsi]

Как в задаче с двумерными массивами найти через процедуру мах каждой строки?

[Abbatik]

По памяти:

...
const m=4;
n=5;
type mas=array[1..m,1..n] of integer;
procedure max(a:mas; var b:array[1..m] of integer);
var i,j:integer;
begin
for i:=1 to m do begin
b[i]:=a[i,1];
for j:=1 to n do begin
if a[i,j]>b[i] then b[i]:=a[i,j];
end;
end;
end;
{процедура возвращает одномерный массив максимумов матрицы}
....

[Bagsi]

Спасибо большое!