Выяснить, сколько положительных элементов содержит массив A[1..n, 1..n], если aij = sin(i+j/2).

var
  n: Integer;
  i, j: Integer;
  a: array of array of Real;
  Res: Integer;
begin
  Readln(n);
  SetLength(a, n, n);
  Res := 0;
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      a[i, j] := sin(i+j/2);
      if(a[i, j] > 0) then
        inc(Res);
    end;
  end;
 
  Writeln(Res);
  ReadLn;
end.

const
  n = 5;
var
  Matr: array[1..n, 1..n] of real;
  Count: integer;
  i, j: byte;
begin
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=sin(i + j / 2);
      write((Matr[i, j]:0:2):7);
      if Matr[i, j] > 0 then inc(Count);
    end;
    writeln;
  end;
  writeln('Кол-во положительных: ', Count);
end.

var
  Matr: array[1..100, 1..100] of real;
  Count, n: integer;
  i, j: byte;
begin
  randomize;
  write('N: ');
  readln(n);
  writeln('Массив: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=sin(i + j / 2);
      write((Matr[i, j]:0:2):7);
      if Matr[i, j] > 0 then inc(Count);
    end;
    writeln;
  end;
  writeln('Кол-во положительных: ', Count);
end.