Найти наименьший элемент матрицы NxM - Turbo Pascal

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

Найти наименьший элемент матрицы NxM

Решение задачи: «Найти наименьший элемент матрицы NxM»

Листинг программы

CONST
 kol_strok=5;
 kol_stolbcov=4;
VAR
 A:array[1..kol_strok,1..kol_stolbcov] of Real;
 i,j:integer;
 min:real;
BEGIN
 for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do
   Read(A[i,j]);
 min:=A[1,1];
 for i:=1 to kol_strok do
  for j:=1 to kol_stolbcov do
    if min>A[i,j] then min:=A[i,j];
  Writeln('Минимальный элемент = ',min:4:2);
END.

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

В данном коде используется двумерный массив для хранения чисел. Переменная A содержит этот массив. С помощью двух вложенных циклов, каждая ячейка массива считывается с помощью функции Read, которая считывает число с консоли и сохраняет его в соответствующую ячейку массива. Переменная min инициализируется значением первой ячейки массива (A[1,1]). Затем, с помощью вложенных циклов, происходит сравнение каждого элемента массива с переменной min. Если текущий элемент меньше min, то min обновляется значением этого элемента. В конце программы, с помощью функции Writeln, выводится сообщение с минимальным элементом.