Нахождение минимального элемента и номера строк и столбцов, где он расположен - Turbo Pascal

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

Помогите пожалуйста с программой. Нужно создать две процедуры( одну -заполнение массива, другая- нахождение минимального элемента и номера строке и столбцов где он расположен) Вот задание : Найти наименьшие элементы и номера строк и столбцов , в которых они расположены, для матриц А(10,15) и В(15,12).

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

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.
Эта работа вам не подошла?

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

11   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы