Работа с массивами

  1. program LabWork;
  2. const
  3.   nmax = 10;
  4.  
  5. type
  6.   TElem = Real;
  7.   TInd = 1..nmax;
  8.   TArr = array [TInd, TInd] of TElem;
  9.  
  10. var
  11.   A: TArr;
  12.   m, n, i, j: TInd;
  13.   emin: TElem;
  14.  
  15. begin
  16.   WriteLn('Введите число строк и столбцов исходной матрицы');
  17.   ReadLn(m, n);
  18.   WriteLn('Введите элементы матрицы построчно');
  19.   for i := 1 to m do begin
  20.     for j := 1 to n do begin
  21.       Read(A[i, j]);
  22.     end;
  23.     ReadLn;
  24.   end;
  25.  
  26.   WriteLn('Исходные данные');
  27.   WriteLn('==================');
  28.   WriteLn('Матрица А размером ', m, '*', n);
  29.   for i := 1 to m do begin
  30.     for j := 1 to n do begin
  31.       Write(A[i, j]:8:2);
  32.     end;
  33.     WriteLn;
  34.   end;
  35.  
  36.   emin := A[2, 1];
  37.   for i := 2 to m do begin
  38.     for j := to i-1 do begin
  39.       emin := A[i, j] < emin then
  40.         emin := A[i, j];
  41.     end;
  42.   end;
  43.  
  44.   WriteLn('==================');
  45.   WriteLn('Минимальный элемент emin= ', emin:8:2);
  46. end.
Задание: вычислить минимальный элемент матрицы, лежащий ниже главной диагонали.
Tестовые примеры: m=4
n=3
A=
  1. [-6  3  4]
  2. [ 5  0  8]
  3. [-2 -1  0]
  4. [ 3  9  1]
_______
emin=-2

Реклама

Мы в соцсетях

tw tg yt gt