Question

Дана матрица размера М х N'. В каждом столбце матрицы найти максимальный элемент. Язык паскаль

Answer 1

Var
  A:array[1..100,1..100] of integer;
  MAX, i,j,m,n:integer;
begin
 randomize;
 MAX:=-32000;
 Readln(m,n);
Writeln('Исходная матрица:');
 for i:=1 to m do
  for j:=1 to n do
   begin
     a[i,j]:=random(10);
     writeln('A[',i,',',j,']=',a[i,j]);
   end;
 for i:=1 to m do
  begin
    for j:=1 to n do
     if A[i,j]>MAX then
      MAX:=A[i,j];
    Writeln('MAX[',i,']',MAX);
    MAX:=-32000;
   end;
end.
   
   

Answer 2

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

1. Объявите переменные M и N для хранения размеров матрицы. 2. Создайте двумерный массив (матрицу) размером MxN. 3. Заполните матрицу значениями. 4. Создайте массив размером N для хранения максимальных элементов столбцов. 5. Инициализируйте все элементы массива максимальных элементов значением, меньшим любого возможного элемента матрицы (например, минимальным целым числом). 6. Пройдитесь по каждому столбцу матрицы и сравните каждый элемент с текущим максимальным элементом столбца. Если текущий элемент больше текущего максимального элемента, обновите значение текущего максимального элемента. 7. После обхода всех столбцов, выведите массив максимальных элементов.

Вот пример кода на Паскале, реализующий описанный алгоритм:

program FindMaxElements;

const
  M = 3; // количество строк
  N = 4; // количество столбцов

var
  matrix: array[1..M, 1..N] of Integer;
  maxElements: array[1..N] of Integer;
  i, j: Integer;

begin
  // Заполнение матрицы значениями (можно изменить на свои)
  matrix[1, 1] := 3;
  matrix[1, 2] := 1;
  matrix[1, 3] := 2;
  matrix[1, 4] := 0;
  matrix[2, 1] := -1;
  matrix[2, 2] := 2;
  matrix[2, 3] := 3;
  matrix[2, 4] := 0;
  matrix[3, 1] := -1;
  matrix[3, 2] := -1;
  matrix[3, 3] := 4;
  matrix[3, 4] := 0;

// Инициализация массива максимальных элементов
  for j := 1 to N do
    maxElements[j] := Low(Integer);

// Поиск максимальных элементов в каждом столбце
  for j := 1 to N do
  begin
    for i := 1 to M do
    begin
      if matrix[i, j] > maxElements[j] then
        maxElements[j] := matrix[i, j];
    end;
  end;

// Вывод максимальных элементов
  for j := 1 to N do
    Write(maxElements[j], ' ');

end.

В данном примере матрица размером 3x4 заполняется значениями, а затем происходит поиск максимальных элементов в каждом столбце. Результат выводится на экран.

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