{* Задача 258 *}

Unit ZADACH258;
Interface
Implementation
Begin
 writeln('Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица [aij] i, j=1,..., n , если aij=sin(i+j/2) ');
End.

Program zadach258;

Uses zadach258.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  n = 4;
Var {* В работе нам потребуются переменные: *}
  i : integer;
  j : integer;
  k : integer;
  a : Array[1..n, 1..n] Of real;
Begin
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      a[i][j] := sin(i + j / 2);
      write(a[i][j], ' ');
    End;
    writeln; {* Вывод пустой строки *}
  End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
      If (a[i][j] > 0) Then
        k := k + 1;
  writeln('polozhitelnyh elementov = ', k);
  readln; {* Ждем нажатия Enter *}
End.