Дана действительная матрица 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];