profile="http://gmpg.org/xfn/11"> Найти минимальный элемент двумерного массива, паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти минимальный элемент двумерного массива, паскаль.

Найти минимальный элемент двумерного массива, паскаль.
Задача найти минимальный элемент двумерного массива в паскале сводится к двум циклам. Первый цикл проходит построчно, второй по столбцам. Причем, второй цикл проходит внутри первого цикла. Перед циклом выбираем переменную i_Min, в которую будем записывать минимальный элемент двумерного массива.

program Task_Min_2Mer1;

  {задачи на числа паскаль с решением}
  {найти минимальный элемент двумерного массива паскаль}
var
  i, j, i_Min: integer;
  i_ArrNum: array[1..5, 1..4] of integer;

begin
  WriteLn('Задача, найти минимальный элемент двумерного массива:');
  WriteLn('Введите 20 (двадцать) чисел:');
  for i := 1 to 5 do  // по строкам
    for j := 1 to 4 do  // по столбцам
      ReadLn(i_ArrNum[i, j]);
  i_Min := i_ArrNum[1, 1];//первый элемент массива
  i := 1;
  repeat // цикл по строкам
    j := 1;
    repeat // цикл по столбцам
      if i_Min > i_ArrNum[i, j] then
        i_Min := i_ArrNum[i, j];
      j := j + 1;
    until j > 4;
    i := i + 1;
  until i > 5;
  WriteLn('Минимальный элемент двумерного массива = ', i_Min);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Найти минимальный элемент двумерного массива, паскаль
Найти минимальный элемент двумерного массива, паскаль.

Дополнительные материалы:
Найти минимальный элемент массива, паскаль.
Найти минимум и максимум в массиве — Pascal (Паскаль).
Найти минимальное число в массиве, паскаль.
Минимальное значение, которое может иметь число типа Integer в Паскале.
Найти минимальный элемент массива и его порядковый номер. Паскаль (Pascal).
Минимальный элемент массива, что это?

3 комментария на “Найти минимальный элемент двумерного массива, паскаль.”