Дан двумерный массив a, размером (n´n)(или квадратная матрица а). Найти среднее арифметическое положительных элементов, нижней треугольной матрицы, расположенной ниже главной диагонали, исключая саму главную диагональ.
Дан двумерный массив a, размером (n´n)(или квадратная матрица
а). Найти среднее арифметическое положительных элементов, нижней треугольной
матрицы, расположенной ниже главной диагонали, исключая саму главную
диагональ.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы