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

program gt;var a:array[1..100,1..100]of integer;n,i,j,h,s:integer;p:real;beginread(n);h:=0;for i:=1 to n dofor j:=1 to n doread(a[i,j]);for i:=2 to n dobeginfor j:=1 to i-1 dobeginh:=h+1;s:=s+a[i,j];end;end;p:=s/h;writeln(p);end.