Найти в матрице минимальное число К , для которого хотя бы в одной строке все элементы меньше или равны К - Turbo Pascal

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

Помогите, пожалуйста, с задачей! Найти в матрице минимальное число К , для которого хотя бы в одной строке все элементы меньше или равны К.

Код к задаче: «Найти в матрице минимальное число К , для которого хотя бы в одной строке все элементы меньше или равны К - Turbo Pascal»

textual
var
  { тут описание матрицы }
  i, j, max, k : integer;
begin
  { тут ввод матрицы }
 
  k := maxint; { или просто какое-то очень большое число }
  for i := 1 to n do { n - число строк матрицы }
  begin
    max := a[i, 1];
    for j := 2 to m do { m - число столбцов }
      if a[i, j] > max then max := a[i, j];
    if max < k then k := max
  end;
  writeln('k = ', k);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ