Найти в матрице минимальное число К , для которого хотя бы в одной строке все элементы меньше или равны К - 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.

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

В данном коде на Turbo Pascal происходит следующее:

  1. Создается переменная max типа integer, которая будет использоваться для хранения текущего максимального значения в матрице. Изначально значение max устанавливается на максимальное возможное значение для типа integer.
  2. Задается переменная k также типа integer. В начале k устанавливается на максимальное возможное значение для типа integer.
  3. Далее происходит цикл for, который выполняется от 1 до n, где n - количество строк в матрице. Внутри цикла значение переменной max обновляется: если текущий элемент в текущей строке (a[i, 1]), то есть первый элемент в текущей строке, больше значения max, то max обновляется на значение текущего элемента.
  4. После завершения внутреннего цикла, значение переменной max сравнивается с текущим значением k. Если max меньше k, то значение k обновляется на значение max.
  5. По завершении внешнего цикла, значение переменной k выводится на экран с помощью функции writeln. Таким образом, результатом работы программы будет вывод на экран минимального значения k, для которого хотя бы в одной строке все элементы меньше или равны этому значению.

Оцени полезность:

9   голосов , оценка 4.333 из 5
Похожие ответы