Дано натуральное число N. Выяснить, сколько положительных 
элементов содержит матрица [Аij]i=1,...,n;i,j=1,....,n, если Аi.j =cos(i^2 +n).

program Project2;{$APPTYPE CONSOLE}uses SysUtils;var i,j,n,m:integer;a:array[1..100] of integer;begin Writeln('vvedine n=');Read(n);for i:=1 to n dofor j:=1 to n dobeginif cos(sqr(i)+n)>0 then m:=m+1;End;write(m);End.

program Project1;{$APPTYPE CONSOLE}uses SysUtils; var c,i,n:integer; begin writeln('vvedite n='); readln(n); C:=0; FOR I:=1 TO N DO begin if cos(i*i+n)>0 then inc(c); end;{i} writeln(c:5); Readln; END.

var i,j,n,m:integer;a:array[1..100] of integer;beginRead(n);for i:=1 to n dofor j:=1 to n dobeginif cos(sqr(i)+n)>0 then m:=m+1;End;write(m);End.