Нахождение минимального элемента и номера строк и столбцов, где он расположен - 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.

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

  1. Создается двумерный массив a размером 10x15, заполняется случайными числами от 0 до 100.
  2. Выводится матрица a.
  3. Находится минимальный элемент массива a, его номер и координаты.
  4. Создается двумерный массив b размером 15x12, также заполняется случайными числами от 0 до 100.
  5. Выводится матрица b.
  6. Повторяется шаг 3 для массива b.
  7. Выводится минимальный элемент массива b, его номер и координаты.
  8. Программа завершается.

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

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