Дан двумерный массив a, разме­ром (n´n)(или квадратная мат­рица а). Найти среднее...

Question

Дан двумерный массив a, разме­ром (n´n)(или квадратная мат­рица
а). Найти среднее арифметиче­ское положительных элементов, ниж­ней треугольной
матрицы, располо­женной ниже главной диагонали, ис­ключая саму главную
диагональ.

Answer 1

Program gt;
var a:array[1..100,1..100]of integer;
n,i,j,h,s:integer;
p:real;
begin
read(n);
h:=0;
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=2 to n do
begin
for j:=1 to i-1 do
begin
h:=h+1;
s:=s+a[i,j];
end;
end;
p:=s/h;
writeln(p);
end.