Подпрограммы Опции

[Катрин]

Ребят, подскажите, пожалуйста, как решить задачку: Если заданная квадратная целочисленная матрица является треугольной(эл-ты выше главной диагонали = 0) вычислить ее среднее арифметическое, иначе определить, сколько элементов, лежащих выше главной диагонали не равны 0. Заранее спасибо.

[Altair]

ввод и работа с матрицами

число нулевых элементов выше главной диагонали.

s:=0;
For i:=1 To n Do For j:=i To n Do  if a[i,j] = 0 then inc(s);

проверка явл. ли матрица верхнетреугольной..

s:=0;
For i:=1 To n Do
 For j:=n-i+1 To n Do s:=s+a[i, j];

Если после прогона s=0 то ДА...

p.s. все взято из той ссылочки что я привел..