Program mas_11;
uses crt;
const
n = 3;
m = 4;
Var
a: array [1 .. n, 1 .. m] of integer;
max, i, j: integer;
Begin
randomize;
For i := 1 to n do
begin
For j := 1 to m do
begin
a[i, j] := random(10);
write(a[i, j]:4);
end;
writeln;
end;
For i := 1 to n do
begin
max := a[i, 1];
For j := 1 to m do
If max < a[i, j] then
max := a[i, j];
writeln(' Наибольший элемент ', i, ' строки = ', max);
End;
Readln;
End.