Кнопка есть "КОД".
Там по условию задачи: "среднее арифметическое первого столбца и количество элементов в каждом из следующих
столбцов, превышающих среднее арифметическое предыдущего столбца", т.е. я так понял, надо для КАЖДОГО, кроме последнего столбца считать среднее арифметическое и сравнивать числа из следующего столбца. А у вас, в конце:
Код:
for i := 0 to n - 1 do
for j := 1 to m - 1 do
if d[i, j] > sr then
k := k + 1;
считается общая сумма всех элементов, начиная со 2 столбца, которые превышают среднее арифметическое 1 столбца.