Const max = 100;
var i,j,k,m,n: integer;
a: array[1..max,1..max] of integer;
begin
write('n = '); readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln;
end;
k:=0; m:=n div 2;
if m*2 for i:=1 to m do
for j:=(n-i+1) to n do
begin
if (a[i,j]<0) then k:=k+1;<br> if ((a[i,j]<>a[n-i+1,j]) and (a[n-i+1,j]<0))<br> then k:=k+1;
end;
writeln('количество отрицательных элементов: ',k);
end.
n = 5
-48 35 -41 -16 18
-40 -2 -49 25 -12
34 -19 -10 40 -21
14 -28 -34 49 46
-30 45 -13 41 31
количество отрицательных элементов: 3