Дано натуральное число N. Выяснить, сколько положительных элементов содержит матрица...

0 голосов
46 просмотров

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


Информатика (12 баллов) | 46 просмотров
Дан 1 ответ
0 голосов

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.

(60 баллов)
0

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.

0

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.