Найти значение наибольшего по модулю элемента матрицы — Delphi(Делфи)

Дана действительная матрица 18хN. Вывести её на экран. Найти значение наибольшего по модулю элемента матрицы

for i := 1 to 18 do
  for j := 1 to N do
    FMain.StringGrid1.Cells[j, i] := FloatToStr(a[i, j]);
a - двумерный массив, в котором хранится матрица.Используй компонент
  TStringGrid.

Максимальный по модулю:

var
  i, j: integer;
  a: array [1 .. 18, 1 .. N] of double;
  max: double;

begin
  max := 0;
  for i := 1 to 18 do
    for j := 1 to N do
      if abs(a[i, j]) > abs(max) then
        max := a[i, j];

Leave a Comment