Найти значение наибольшего по модулю элемента матрицы
Категория: Delphi/Pascal
2012-10-04 15:50:36
Дана действительная матрица 18хN. Вывести её на экран. Найти значение наибольшего по модулю элемента матрицы
Вывод на экран:
code: #pascal
for i:=1 to 18 do for j:=1 to N do FMain.StringGrid1.Cells[j,i]:=FloatToStr(a[i,j]);
a - двумерный массив, в котором хранится матрица. Используй компонент TStringGrid.
Максимальный по модулю:
code: #pascal
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];
автор: 4erep_88
Поделиться: