Вычислить количество ненулевых элементов матрицы, лежащих выше, ниже и на главной диагонали.
вот кое-что пытался составить
Выше главной:
for i:=1 to n-1 do
for j:=i+1 to n do
if x[i,j] = 0
then
k := k+1;
ниже главной:
for i:=2 to n do
for j:=1 to i-1 do
if x[i,j] = 0
then
inc(k);
На главной:
for i:=1 to n do
for j:=1 to n do
if (i=j) and
(x[i,j] = 0)
then
inc(k);
проверьте и дополните что не хватает.заранее спасибо!