Дана квадратная целочисленная матрица порядка n. Сформировать результирующий одномерный массив, элементами которого являются построчные средние арифметические значения нечетных элементов исходной матрицы. Задача на Pascal.

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

program AverageOddElementsInMatrix;

const
n = 3;

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

var
inputMatrix: Matrix;
resultArray: array[1..n] of real;
i, j, sum, count: integer;

begin
// Ввод исходной матрицы
writeln('Введите элементы матрицы:');
for i := 1 to n do
for j := 1 to n do
readln(inputMatrix[i, j]);

// Рассчет средних арифметических значений нечетных элементов по строкам
for i := 1 to n do
begin
sum := 0;
count := 0;
for j := 1 to n do
begin
if inputMatrix[i, j] mod 2 <> 0 then
begin
sum := sum + inputMatrix[i, j];
count := count + 1;
end;
end;
resultArray[i] := sum / count;
end;

// Вывод результирующего массива
writeln('Средние арифметические значений нечетных элементов:');
for i := 1 to n do
writeln(resultArray[i]:0:2);
end.