Вычислить среднее арифметическое отрицательных элементов выше главной и ниже побочной диагонали.
Answers & Comments
vladrus113
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.
Answers & Comments
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.