1 строка 3,5,4,2,1,1,2
2 строка 1,2,4,6,7,5,4,3,2,5,6,3,1
3строка 5, 2, 1,7,8,5,6,3,4,10,9,6
Ответ 132. Т.к цикл проработает 11 раз
12*11 = 132
Const
m1 = 20;
n1 = 20;
var
x: array[1..m1, 1..n1] of integer;
i, j, m, n, mx, mn: integer;
begin
Write('Введите через пробел число строк и столбцов матрицы: ');
Readln(m, n);
Randomize;
writeln(#13#10, 'Исходная матрица');
for i := 1 to m do
begin
for j := 1 to n do
begin
x[i, j] := Random(100) - 50;
Write(x[i, j]:5)
end;
Writeln
end;
for i := 1 to m do
begin
mx := x[i, 1]; mn := mx;
for j := 2 to n do
if mx < x[i, j] then mx := x[i, j]
else if mn > x[i, j] then mn := x[i, j];
Writeln('В строке ', i, ' мin=', mn, ', max=', mx)
end
end.
Тестовое решение:
Введите через пробел число строк и столбцов матрицы: 5 8
Исходная матрица
14 35 4 16 44 -14 47 36
-23 -40 16 43 40 48 21 46
23 30 -18 25 -43 -5 -3 37
24 -26 9 -37 36 23 -33 36
30 46 17 -18 -34 -35 36 28
В строке 1 мin=-14, max=47
В строке 2 мin=-40, max=48
В строке 3 мin=-43, max=37
В строке 4 мin=-37, max=36
В строке 5 мin=-35, max=46
