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.

Answer 2

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

pascalCopy code
program FindColumnWithMaxSumAndMinValue;

const
  N = 4;

type
  TMatrix = array[1..N, 1..N] of Integer;

var
  matrix: TMatrix;
  columnIndex, maxSum, currentSum, minValue: Integer;

// Функция для нахождения модуля числа
function AbsValue(x: Integer): Integer;
begin
  if x >= 0 then
    Result := x
  else
    Result := -x;
end;

// Функция для нахождения столбца с наибольшей суммой модулей
function FindColumnWithMaxSum(matrix: TMatrix): Integer;
var
  i, j, sum, maxSum: Integer;
begin
  maxSum := 0;
  Result := 1; // Пусть первый столбец имеет максимальную сумму модулей

  for j := 1 to N do
  begin
    sum := 0;
    for i := 1 to N do
      sum := sum + AbsValue(matrix[i, j]);

    if sum > maxSum then
    begin
      maxSum := sum;
      Result := j;
    end;
  end;
end;

begin
  // Ввод матрицы с клавиатуры
  writeln('Введите элементы матрицы:');
  for var i := 1 to N do
    for var j := 1 to N do
      readln(matrix[i, j]);

  // Находим столбец с наибольшей суммой модулей
  columnIndex := FindColumnWithMaxSum(matrix);
  
  // Находим минимальное значение в выбранном столбце
  minValue := matrix[1, columnIndex];
  for var i := 2 to N do
  begin
    if matrix[i, columnIndex] < minValue then
      minValue := matrix[i, columnIndex];
  end;

  // Выводим результаты
  writeln('Столбец с наибольшей суммой модулей: ', columnIndex);
  writeln('Минимальное значение в этом столбце: ', minValue);
end.

Вы можете скопировать этот код и выполнить его в среде разработки, поддерживающей Паскаль (например, Free Pascal). После запуска программы она предложит вам ввести элементы матрицы, а затем выведет номер столбца с наибольшей суммой модулей и наименьшее значение в этом столбце.