Question

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

Answer 1

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

Answer 2

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 do
for j:=1 to n do
begin
if cos(sqr(i)+n)>0 then m:=m+1;
End;
write(m);

End.

Answer 3

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.