Pascal. Определить максимальные элементы квадратной матрицы по строкам.

[Звездочка 22]

Задача скрыта, спасибо...

[Stilet]

Попытки покажешь?
Или хотя бы код ввода матрицы.

[newerow1989]

var i,j,max:integer;
    p:array[1..5,1..5] of integer;
begin
   Randomize;
   For i:=1 to 5 do
   begin
      max:=0;
      For j:=1 to 5 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j],'  ');
         If max<p[i,j] then
            max:=p[i,j];
      end;
      Writeln('');
      Writeln('max = ',max);
   end;
   Readln;
end.

Сойдет?

[Звездочка 22]

спасибо)))

[newerow1989]

Пожалуйста!