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