Question

Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Найти максимальный элемент во втором столбце матрицы.

Answer 1

Const
  n = 3;
  m = 3;

type
  matrix = array [1..m,1..n] of real;

function findMax (A : matrix): real;
var
 i : integer;
 x : real;
begin
 x := A[1,2];
 for i := 2 to m do
   if A[i,2] > x then
     x := A[i,2];
 findMax := x
end;

var
 A : matrix;
 i,j : integer;

begin
 for i := 1 to m do
 for j := 1 to n do
   read(A[i,j]);
 writeln(findMax(A))
end.

Answer 2

Для нахождения максимального элемента во втором столбце матрицы в PascalABC.NET версии 2.2 можно использовать следующий код:

pascalCopy code
program MaxElementInSecondColumn;

const
  Rows = 5; // Количество строк в матрице
  Cols = 3; // Количество столбцов в матрице

var
  matrix: array[1..Rows, 1..Cols] of Integer;
  i, j, maxElement: Integer;

begin
  // Заполнение матрицы (в данном примере используется случайная генерация)
  Randomize;
  for i := 1 to Rows do
    for j := 1 to Cols do
      matrix[i, j] := Random(100); // Заполняем матрицу случайными числами от 0 до 99

  // Вывод матрицы (для наглядности)
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      Write(matrix[i, j]:4);
    Writeln;
  end;

  // Начальное значение максимального элемента во втором столбце
  maxElement := matrix[1, 2];

  // Поиск максимального элемента во втором столбце
  for i := 2 to Rows do
  begin
    if matrix[i, 2] > maxElement then
      maxElement := matrix[i, 2];
  end;

  // Вывод результата
  Writeln('Максимальный элемент во втором столбце матрицы: ', maxElement);

  Readln;
end.

Этот код создает матрицу размером Rows x Cols, заполняет ее случайными числами и затем находит максимальный элемент во втором столбце. Результат выводится на экран.