Написать с помощью паскаля, используя процедуру
Дана целочисленная квадратная матрица порядка n(n=8). Получить элементы массива x равные максимальному среди первого и последнего четного элемента очередной строки матрицы. Считать, что четных элементов в каждой строке больше двух

Предыдущий
вопрос Следующий
вопрос

program maxElements;

const
n = 8;

type
Matrix = array[1..n, 1..n] of Integer;

procedure findMaxElements(matrix: Matrix; var x: array of Integer);
var
i, j, maxElement1, maxElement2: Integer;
begin
for i := 1 to n do
begin
maxElement1 := matrix[i, 2];
maxElement2 := matrix[i, n-1];

for j := 2 to n step 2 do
begin
if matrix[i,j] > maxElement1 then
maxElement1 := matrix[i,j];
end;
for j := 2 to n step 2 do
begin
if matrix[i,j] > maxElement2 then
maxElement2 := matrix[i,j];
end;
if maxElement1 > maxElement2 then
x[i] := maxElement1
else
x[i] := maxElement2;

end;
end;

var
i, j: Integer;
matrix: Matrix;
x: array[1..n] of Integer;

begin
// инициализация матрицы случайными значениями
for i := 1 to n do
for j := 1 to n do
matrix[i,j] := Random(100);

findMaxElements(matrix, x);

// вывод элементов массива x
writeln('Max elements:');
for i := 1 to n do
writeln('x[', i, '] = ', x[i]);
end.