Question

Среди тех строк целочисленной матрицы, которые содержат только нечетные элементы, найти строку с максимальной суммой модулей элементов. (программа Паскаль)

Answer 1

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.