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.