Задана целочисленная квадратная матрица порядка 4. из этой матрицы выбрать столбец, который обладает наибольшей суммой модулей элементов. если таких столбцов несколько, то взять первый из них. далее в данном столбце найти наименьшее из значений его паскаль ​

ответ:

program array4x4;

const

  d = 4;     // размерность массива, можно менять на любое другое

var

  a: array [1..d, 1..d] of integer;

  i, j, s, smax, jmax, smin, imin: integer;

begin

  randomize;

  for i : = 1 to d do begin

    writeln;

    for j : = 1 to d do begin

      a [i, j] : = random (21) - 5;

      write (a [i, j] : 3, ' ');

    end;

  end;

  smax : = 0;

  jmax : = 0;

  for j : = 1 to d do begin

    s : = 0;

    for i : = 1 to d do begin

      s : = s + abs (a [i, j]);

    end;

    if s > smax then begin

      smax : = s;

      jmax : = j;

    end;

  end;

  writeln;

  writeln ('столбец № ', jmax, ' сумма модулей = ', smax);

  imin : = 1;

  smin : = maxint;

  for i : = 1 to d do begin

    if a [i, jmax] < smin then begin

      smin : = a [i, jmax];

      imin : = i;

    end;

  end;

  writeln ('наименьший элемент: ', imin, ' : ', jmax, '   равен = ', smin);

  readln;

end.

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

в цикле sum [i]: =sum+mas[i,j];