Напишите алгоритм в паскале аbc. Сум. полож. элем. квадратной матрицы, превыш. сред ариф. элементов главной диагонали.

Краткость – с. т. ?
Элементы главной диагонали: [ i, n-j+1 ]

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