Задачка про матрицу

[Glance]

Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица A размерности n*n, если Aij=Sin(i+j/2).
Помогите пожалуйста! ))

[apromix]

Непонятно Aij=Sin(i+j/2) это может A[i, j] := Sin(i + j / 2);?

[Glance]

Да. именно такая формула.

[Bayazet]

//консольный вариант

Type 
  TAr = Array of double;
  TArray = Array of TAr;

var
  A : TArray;
  i, j : integer;
  n : integer;
  count : integer;
begin
  Writeln ('vvedite razmernost matricy');
  Readln (n);
  count := 0;
  SetLength(A, n);
  For i := 0 to n-1 do
    SetLength(A[i], n);
  For i := 0 to n-1
    For j := 0 to n-1 do
    begin
      A[i,j] := sin // сюда пишешь ту формулу;)
      If A[i,j] > 0 then count := count + 1;
    end;
  Writeln ('kolichestvo pologitelnyh elementov - ' + IntToStr(count));
  readln;
end.

в твоем случае, надо указывать каждый раз в SetLength не N, а N+1
и в каждом FORе бегунок поскуть не с 0 и до N-1, а с 1 и до N