Дан двумерный массив целых чисел. Ко всем четным элементам матрицы прибавить первый элемент соответствующей строки. ПАСКАЛЬ

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

program AddFirstElementToEvenElements;

const
N = 3;
M = 3;

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

begin
// Ввод элементов массива
for i := 1 to N do
begin
for j := 1 to M do
begin
write('Введите элемент [', i, ',', j, ']: ');
readln(matrix[i, j]);
end;
end;

// Прибавление первого элемента строки ко всем четным элементам
for i := 1 to N do
begin
for j := 1 to M do
begin
if matrix[i, j] mod 2 = 0 then
matrix[i, j] := matrix[i, j] + matrix[i, 1];
end;
end;

// Вывод измененного массива
writeln('Измененный массив:');
for i := 1 to N do
begin
for j := 1 to M do
begin
write(matrix[i, j], ' ');
end;
writeln;
end;
end.