Составьте программу нахождения наименьшего К, обладающего свойством: хотя бы в одной строке двухмерного массив - Pascal ABC

Формулировка задачи:

Составьте программу нахождения наименьшего К, обладающего свойством: хотя бы в одной строке двухмерного массива A(N,M) все элементы меньше или равны К.

Решение задачи: «Составьте программу нахождения наименьшего К, обладающего свойством: хотя бы в одной строке двухмерного массив»

Листинг программы

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    mx,k:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  mx:=a[i,1];
  for j:=2 to m do
  if a[i,j]>mx then mx:=a[i,j];
  if i=1 then k:=mx
  else if mx<k then k:=mx;
 end;
write('k=',k);
end.

Объяснение кода листинга программы

Программа начинается с объявления необходимых переменных и использования функции crt для инициализации таблицы символов.
Пользователю предлагается ввести количество строк и столбцов матрицы, которые он хочет рассмотреть. Эти значения сохраняются в переменных n и m соответственно.
Затем программа выводит исходную матрицу, перебирая строки и столбцы и заполняя их случайными числами от 0 до 20.
После этого программа находит максимальное значение в матрице и сохраняет его в переменной mx.
Затем программа перебирает строки матрицы и находит максимальное значение в текущей строке. Если это значение больше максимального, то обновляет максимальное значение на это значение. Если текущая строка - первая, то обновляется глобальное максимальное значение.
В конце программа выводит найденное максимальное значение.