Question

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

Answer 1

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.