Question

CРОЧНО!!!!! Дана квадратная матрица А(n× n). Найти количество отрицательных элементов в заштрихованной части.

Answer 1

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<n then m:=m+1;  
  for i:=1 to m do
  for j:=(n-i+1) to n do
  begin
    if (a[i,j]<0) then k:=k+1;
    if ((a[i,j]<>a[n-i+1,j]) and (a[n-i+1,j]<0))
       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