Question

Вычислить среднее арифметическое отрицательных элементов выше главной и ниже побочной диагонали.

Answer 1

Var i,j,n,x,kol,xx:int64;
begin
read(n);
for i:=1 to n do begin
   for j:=1 to n do begin
      read(x);
      if (i+j>n+1)and(i<j)and(x<0) then begin inc(kol); inc(xx,x); end;
      end;
      end;
writeln(xx/kol);
end.