В матрице 5*5 найти сумму элементов каждой четной строки матрицы.Pascal abc

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

program SumEvenRows;

var
matrix: array[1..5, 1..5] of Integer;
row, col, sum: Integer;

begin
sum := 0;

// Заполнение матрицы случайными числами
Randomize;
for row := 1 to 5 do
begin
for col := 1 to 5 do
begin
matrix[row, col] := Random(10); // Случайное число от 0 до 9
end;
end;

// Вычисление суммы элементов каждой четной строки
for row := 2 to 5 by 2 do
begin
sum := 0;
for col := 1 to 5 do
begin
sum := sum + matrix[row, col];
end;
writeln('Сумма элементов четной строки ', row, ': ', sum);
end;

end.