Нахождение минимального элемента и номера строк и столбцов, где он расположен - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста с программой. Нужно создать две процедуры( одну -заполнение массива, другая- нахождение минимального элемента и номера строке и столбцов где он расположен)
Вот задание : Найти наименьшие элементы и номера строк и столбцов , в которых они расположены, для матриц А(10,15) и В(15,12).
Решение задачи: «Нахождение минимального элемента и номера строк и столбцов, где он расположен»
textual
Листинг программы
type vector = array [1..15, 1..15] of integer; var a, b: vector; min, imin, jmin: integer; procedure Create(var x: vector; _n, _m: integer); var i, j: integer; begin for i := 1 to _n do for j := 1 to _m do x[i, j] := Random(101) - 50; end; procedure Print(x: vector; _n, _m: integer); var i, j: integer; begin for i := 1 to _n do begin for j := 1 to _m do Write(x[i, j]:5); Writeln end; end; procedure FindMin(x: vector; _n, _m: integer; var _min, _imin, _jmin: integer); var i, j: integer; begin _min := MAXINT; for i := 1 to _n do for j := 1 to _m do if x[i, j] < min then begin _min := x[i, j]; _imin := i; _jmin := j end; end; begin Writeln('Матрица A:'); Create(a, 10, 15); Print(a, 10, 15); FindMin(a, 10, 15, min, imin, jmin); Writeln('MIN = ', min, '; IMIN = ', imin, '; JMIN = ', jmin); Writeln('Матрица B:'); Create(b, 15, 12); Print(b, 15, 12); FindMin(b, 15, 12, min, imin, jmin); Writeln('MIN = ', min, '; IMIN = ', imin, '; JMIN = ', jmin); Readln end.
Объяснение кода листинга программы
- Создается двумерный массив
a
размером 10x15, заполняется случайными числами от 0 до 100. - Выводится матрица
a
. - Находится минимальный элемент массива
a
, его номер и координаты. - Создается двумерный массив
b
размером 15x12, также заполняется случайными числами от 0 до 100. - Выводится матрица
b
. - Повторяется шаг 3 для массива
b
. - Выводится минимальный элемент массива
b
, его номер и координаты. - Программа завершается.