Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.
const n=5; m=6; var a:array[1..n,1..m] of integer; i,j,min,max:integer; begin for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(20); write(a[i,j]:4); if j=1 then begin min:=a[i,1]; max:=a[i,1]; end else begin if a[i,j]<min then min:=a[i,j]; if a[i,j]>max then max:=a[i,j]; end; end; writeln('; min=',min,'; max=',max); end; end.
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
const
n=5;
m=6;
var
a:array[1..n,1..m] of integer;
i,j,min,max:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
if j=1 then
begin
min:=a[i,1];
max:=a[i,1];
end
else
begin
if a[i,j]<min then min:=a[i,j];
if a[i,j]>max then max:=a[i,j];
end;
end;
writeln('; min=',min,'; max=',max);
end;
end.