Двумерные массивы

[Vladislav125]

Подскажите как решается?

В квадратной матрице размером M*M, имеющий имя MKM, содержаться целые числа M- число строк столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран максимальный элемент в каждой строке. Определить строку с минимальным значением из найденных максимумов и вывести ее номер на экран.

[newerow1989]

const m=3;
var p:array[1..m,1..m] of integer;
    max:array[1..m] of integer;
    i,j,im:integer;
begin
   For i:=1 to m do
      For j:=1 to m do
      begin
         Write('p[',i,', ',j,'] = ');
         Readln(p[i,j]);
      end;
   Writeln;
   For i:=1 to m do
   begin
      max[i]:=p[i,1];
      For j:=2 to m do
         If max[i]<p[i,j] then
            max[i]:=p[i,j];
      Write(max[i],'  ');
   end;
   Writeln;
   im:=1;
   For i:=2 to m do
      If max[im]>max[i] then
         im:=i;
   Writeln('min = max[',im,'] = ',max[im]);
   Readln;
end.

[Vladislav125]

Сообщение от newerow1989

const m=3;
var p:array[1..m,1..m] of integer;
    max:array[1..m] of integer;
    i,j,im:integer;
begin
   For i:=1 to m do
      For j:=1 to m do
      begin
         Write('p[',i,', ',j,'] = ');
         Readln(p[i,j]);
      end;
   Writeln;
   For i:=1 to m do
   begin
      max[i]:=p[i,1];
      For j:=2 to m do
         If max[i]<p[i,j] then
            max[i]:=p[i,j];
      Write(max[i],'  ');
   end;
   Writeln;
   im:=1;
   For i:=2 to m do
      If max[im]>max[i] then
         im:=i;
   Writeln('min = max[',im,'] = ',max[im]);
   Readln;
end.

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

[newerow1989]