Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Найти среднее арифметическое значение элементов, расположенных под главной диагональю матрицы.

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

program AverageBelowMainDiagonal;

const
n = 3; // размерность матрицы

var
matrix: array[1..n, 1..n] of integer;
i, j, sum, count: integer;
average: real;

begin
sum := 0;
count := 0;

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

// Вычисление среднего арифметического
for i := 2 to n do
for j := 1 to i - 1 do
begin
sum := sum + matrix[i, j];
count := count + 1;
end;

if count > 0 then
average := sum / count
else
average := 0;

writeln('Среднее арифметическое элементов под главной диагональю: ', average:0:2);
end.