[Alegun]

29.

Код:

 for i:= 0 to N do
b[i]:=MaxIntValue(M[i]);

или без Math

Код:

 for j := 0 to N do
 begin
  b[j]:= 0;
  for i := 0 to N do 
   if M[i, j] > b[j] then b[j]:= M[i, j];
 end;