Определить строку, в которой находится max элемент матрицы и просуммировать элементы выбранной строки (D7)

@M4RVIN · Регистрация: 20.03.2016

Author24 — интернет-сервис помощи студентам

Дана целочисленная квадратная матрица. Определить строку, в которой находится максимальный элемент и просуммировать элементы выбранной строки.

@ROS88 · 20.03.2016, 18:53

Delphi

procedure TForm1.Button4Click(Sender: TObject);
var
   A: array[1..3, 1..3] of integer;
   i, j, k, max, S: integer;
begin
     A[1, 1] := 2; A[1, 2] := 1; A[1, 3] := 3;
     A[2, 1] := -20; A[2, 2] := 10; A[2, 3] := 30;
     A[3, 1] := 21; A[3, 2] := 15; A[3, 3] := 33;
 
     k := 0;
     max := -999;
     for i := 1 to 3 do
       for j := 1 to 3 do
         if (A[i, j] >= max) then
           begin
             max := A[i, j];
             k := i;
           end;
     S := 0;
     for j := 1 to 3 do
       S := S + A[k, j];
 
     Caption := IntToStr(S);
end;

@M4RVIN 0 / 0 / 0 Регистрация: 20.03.2016 Сообщений: 1
		1
	Определить строку, в которой находится max элемент матрицы и просуммировать элементы выбранной строки (D7) 20.03.2016, 13:56. Показов 961. Ответов 1 Метки нет (Все метки) Дана целочисленная квадратная матрица. Определить строку, в которой находится максимальный элемент и просуммировать элементы выбранной строки. 0

	20.03.2016, 18:53

Определить строку, в которой находится max элемент матрицы и просуммировать элементы выбранной строки (D7)

Решение