Матрица

[Saren]

Задание.
Дана целочисленная квадратная матрица A порядка n. Получить массив B = {bi}, i=1…n, bi = aki, где k – номер строки, которая обладает наибольшей суммой модулей элементов. - Это моё задание.
Если не понятно задание вот на изображении.

Матрица.JPG


Вот я здесь вообще не могу понять как должно получиться результат что мне нужно сделать подскажите пожалуйста.


Аналогичный пример приведу ниже. Это из другого задание аналог к моему заданию.

Задание: Составить программу определения индексов минимального элемента прямоугольной целочисленной матрицы A, имеющей n строк и m столбцов (значения всех элементов различны).
Будем считать, что начальное и минимально число строк и столбцов матрицы равно двум, а максимальное – 10.

procedure TForm1.Rows_SEChange(Sender: TObject); begin
Source_SG.RowCount := Rows_SE.Value; end;

Опишем событие OnChange компонента Cols_SE:
procedure TForm1.Cols_SEChange(Sender: TObject); begin
Source_SG.ColCount := Cols_SE.Value; end;

Опишем событие OnClick кнопки Calc_B:
procedure TForm1.Calc_BClick(Sender: TObject); var
matr : array[1..10,1..10] of integer; i,j,min_i,min_j : integer;
begin
{Заполнение матрицы}
for i := 1 to Source_SG.RowCount do for j := 1 to Source_SG.ColCount do
matr[i,j] := StrToInt(Source_SG.Cells[j-1,i-1]);
{Поиск: min_i - номер строки минимального элемента min_j - номер столбца минимального элемента}
 
Опишем событие OnChange компонента Rows_SE:
procedure TForm1.Rows_SEChange(Sender: TObject); begin
Source_SG.RowCount := Rows_SE.Value; end;

Опишем событие OnChange компонента Cols_SE:
procedure TForm1.Cols_SEChange(Sender: TObject); begin
Source_SG.ColCount := Cols_SE.Value; end;

Опишем событие OnClick кнопки Calc_B:

procedure TForm1.Calc_BClick(Sender: TObject);
 var
matr : array[1..10,1..10] of integer; i,j,min_i,min_j : integer;
begin
{Заполнение матрицы}
for i := 1 to Source_SG.RowCount do for j := 1 to Source_SG.ColCount do
matr[i,j] := StrToInt(Source_SG.Cells[j-1,i-1]);
{Поиск: min_i - номер строки минимального элемента min_j - номер столбца минимального элемента}
min_i := 1;
min_j := 1;
for i := 1 to Source_SG.RowCount do for j := 1 to Source_SG.ColCount do
if matr[min_i,min_j]>matr[i,j] then begin
min_i := i; min_j := j;
end;
{Вывод результатов}
FindRow_E.Text := IntToStr(min_i); FindCol_E.Text := IntToStr(min_j);
end;

Вид программы (образец).JPG

[min@y™]

Вот я здесь вообще не могу понять как должно получиться результат что мне нужно сделать подскажите пожалуйста.

Этот вопрос преподу задавай, ему зарплату за это плотють.