Question

Помогите пожалуйста решить задачу. Найти номер столбца массива размером MxN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры. Язык Pascal.

Answer 1

Ответ:

• begin
• var (m,n) := ReadInteger2('Введите M и N:');
• var mtr := MatrRandom(m,n,-99,99).Print;
• mtr.Cols.Numerate.MaxBy(c->c[1].Count(x->x<0))[0].Print
• end.

Пример работы:

Answer 2

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

pascalCopy code
program MaxNegativeColumn;

const
  MaxSize = 100;

var
  arr: array [1..MaxSize, 1..MaxSize] of Integer;
  m, n, i, j, maxNegCount, maxNegColumn: Integer;

begin
  Write('Введите количество строк (M): ');
  ReadLn(m);
  Write('Введите количество столбцов (N): ');
  ReadLn(n);

  if (m <= 0) or (n <= 0) or (m > MaxSize) or (n > MaxSize) then
  begin
    WriteLn('Некорректные размеры массива.');
    Exit;
  end;

  WriteLn('Введите элементы массива:');
  for i := 1 to m do
    for j := 1 to n do
      Read(arr[i, j]);

  maxNegCount := 0;
  maxNegColumn := 0;

  for j := 1 to n do
  begin
    var negCount := 0;
    for i := 1 to m do
    begin
      if arr[i, j] < 0 then
        Inc(negCount);
    end;

    if negCount > maxNegCount then
    begin
      maxNegCount := negCount;
      maxNegColumn := j;
    end;
  end;

  if maxNegColumn <> 0 then
    WriteLn('Столбец с наибольшим количеством отрицательных элементов: ', maxNegColumn)
  else
    WriteLn('В массиве нет отрицательных элементов.');

  ReadLn;
end.

Этот код позволяет пользователю ввести размеры массива MxN и его элементы, а затем находит номер столбца с наибольшим количеством отрицательных элементов.