Дана матрица размерностью n×m. Элементы, индексы которых четные, возвести в квадрат. Измененную матрицу вывести на экран. (pascal)

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

program SquareMatrix;

const
n = 3;
m = 4;

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

procedure PrintMatrix();
begin
for i := 1 to n do
begin
for j := 1 to m do
begin
Write(matrix[i, j]:5);
end;
Writeln;
end;
end;

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

// Возводим элементы с четными индексами в квадрат
for i := 1 to n do
begin
for j := 1 to m do
begin
if (i mod 2 = 0) and (j mod 2 = 0) then
begin
matrix[i, j] := matrix[i, j] * matrix[i, j];
end;
end;
end;

// Выводим измененную матрицу на экран
Writeln('Измененная матрица:');
PrintMatrix();

end.