Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal
Формулировка задачи:
Дан двумерный числовой массив. Исключив из него строку и столбец,на пересечении которых находится максимальный элемент.
Решение задачи: «Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент»
textual
Листинг программы
Uses Crt; Const MaxX = 4; MaxY = 6; Var m0 : array[1..MaxX,1..MaxY] of Integer; i,j,mx,my : Byte; Begin ClrScr; mx:=1; my:=1; For i:=1 to MaxX do For j:=1 to MaxY do Begin m0[i,j]:=Random(100); GoToXY(i*3,j); Write(m0[i,j]); If m0[i,j]>m0[mx,my] then Begin mx:=i; my:=j; End; End; Writeln; Writeln; For j:=1 to MaxY do Begin For i:=1 to MaxX do If (i<>mx) and (j<>my) then Write(m0[i,j]:2,' '); If my<>j then Writeln; End; End.
Объяснение кода листинга программы
- В начале кода подключается библиотека Crt, которая предоставляет функции для работы с памятью.
- Затем определяются константы MaxX и MaxY, которые задают максимальные значения для x и y координат матрицы.
- Создается переменная m0 типа array[1..MaxX,1..MaxY] of Integer, которая представляет собой матрицу размером MaxX x MaxY.
- Определяются три байтовых переменных i, j и mx, которые будут использоваться для перемещения по матрице и хранения текущего максимума.
- Запускается цикл, который заполняет матрицу случайными числами от 0 до 99.
- Внутри цикла проверяется, является ли текущая ячейка (i,j) максимальной среди всех ячеек матрицы. Если это так, то обновляется значение переменных mx и my, которые хранят координаты этой ячейки.
- После завершения внешнего цикла начинается второй цикл, который проходит по каждой строке матрицы.
- Внутри этого цикла проверяется, являются ли текущие ячейки (i,j) и (mx,my) разными. Если это так, то выводится значение ячейки (i,j).
- Если значение ячейки (i,j) больше значения ячейки (mx,my), то обновляется значение переменной my.
- Если значение ячейки (i,j) меньше или равно значению ячейки (mx,my), то обновляется значение переменной mx.
- После завершения внутреннего цикла выводится символ новой строки.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д