Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов.
Вопрос посетителя
Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов. (программа Паскаль)
Ответ эксперта
const
n = 5;
type
matr = array[1..n, 1..n] of integer;
procedure zapolnenie(var mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to n do
mas[i, j] := random(20) — 20;
end;
procedure vivod(const mas: matr);
var
i, j: integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
Write(mas[i, j]:5);
Writeln;
end;
end;
function maxstr(const mas: matr; var str: integer): integer;
var
i, j, max, sum: integer;
begin
for i := 1 to n do
begin
sum := 0;
for j := 1 to n do
sum := sum + abs(mas[i, j]);
if max < sum then
begin
max := sum;
str := i;
end;
end;
maxstr := max;
end;
var
mas: matr;
str: integer;
begin
zapolnenie(mas);
vivod(mas);
Writeln;
Writeln(‘Сумма: ‘, maxstr(mas, str), ‘ Строка: ‘, str);
end.