Составить алгоритм, разработать и отладить программу решения задачи ввода значений и поиска значения минимального элемента двумерного массива произвольных целых чисел, состоящего из 3 строк и 4 столбцов, значения которых вводятся с клавиатуры. Искомый элемент и его «координаты» вывести на экран монитора — Pascal(Паскаль)

program xx;

Var
  m: array [1 .. 3, 1 .. 4] of integer;
  i, j, min: integer;

Begin
  writeln('Vvedite elementi');
  for i := 1 to 3 do
    for j := 1 to 4 do
    begin
      readln(m[i, j]);
    end;
  min := m[1, 1];
  for i := 1 to 2 do
    for j := 1 to 3 do
    begin
      if m[i, j] > m[i + 1, j + 1] then
        min := m[i + 1, j + 1];
    end;
  writeln('Rezulitat kordinata=', m[i + 1, j + 1], 'cislo minimalinoe=', min);
  readln;

end.

Leave a Comment

− 6 = 2