A: array[1..10, 1..10] of integer; i, j, M, N: byte; MinElem: integer; begin write('M = '); readln(M); write('N = '); readln(N); { Формируем и выводим матрицу: } randomize; writeln('Случайная матрица ', M, 'x', N, ':'); for i := 1 to M do begin for j := 1 to N do begin a[i, j] := -100 + random(200); write(a[i, j]:4) end; writeln end; writeln; writeln('Минимальный элемент в каждой строке:'); for i := 1 to M do begin { Начальное значение минимального элемента равно первому элементу строки (j = 1): } MinElem := a[i, 1]; for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N } { Если a[i,j] меньше минимума, то новым минимумом становится a[i,j] } if a[i, j] < MinElem then MinElem := a[i, j]; writeln(i, '-я строка: минимальный элемент = ', MinElem) end; readln end.
