если я правильно понял и функция sin в квадрате и cos в квадрате то
по идее она будет равна 1 в любом случае
var
x,y:real;
begin
x:=-3.14;
while x<=3.14 do
begin
y:=sin(x)*sin(x)+cos(x)*cos(x);
writeln(x:8:2,y:8:2);
x:=x+0.2;
end;
end.
вот результат выполнения
-3.14 1.00
-2.94 1.00
-2.74 1.00
-2.54 1.00
-2.34 1.00
-2.14 1.00
-1.94 1.00
-1.74 1.00
-1.54 1.00
-1.34 1.00
-1.14 1.00
-0.94 1.00
-0.74 1.00
-0.54 1.00
-0.34 1.00
-0.14 1.00
0.06 1.00
0.26 1.00
0.46 1.00
0.66 1.00
0.86 1.00
1.06 1.00
1.26 1.00
1.46 1.00
1.66 1.00
1.86 1.00
2.06 1.00
2.26 1.00
2.46 1.00
2.66 1.00
2.86 1.00
3.06 1.00
если брать 2x тогда
var
x,y:real;
begin
x:=-3.14;
while x<=3.14 do
begin
y:=sin(2*x)+cos(2*x);
writeln(x:8:2,y:8:2);
x:=x+0.2;
end;
end.
и результат
-3.14 1.00
-2.94 1.31
-2.74 1.41
-2.54 1.29
-2.34 0.97
-2.14 0.49
-1.94 -0.07
-1.74 -0.61
-1.54 -1.06
-1.34 -1.34
-1.14 -1.41
-0.94 -1.26
-0.74 -0.91
-0.54 -0.41
-0.34 0.15
-0.14 0.68
0.06 1.11
0.26 1.36
0.46 1.40
0.66 1.22
0.86 0.84
1.06 0.33
1.26 -0.23
1.46 -0.76
1.66 -1.16
1.86 -1.38
2.06 -1.39
2.26 -1.17
2.46 -0.77
2.66 -0.25
2.86 0.31
3.06 0.82
1) элемент с номером K заменяется на 2
var
a:array [1..20] of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:3);
end;
writeln;
readln(k);
a[k]:=2;
for i:=1 to n do
write(a[i]:3);
end.
2) элемент вставляется в массив остальные элементы сдвигаются вправо
var
a: array [1..20] of integer;
i, n, k: integer;
begin
readln(n);
for i := 1 to n do
begin
a[i] := random(50);
write(a[i]:3);
end;
writeln;
readln(k);
for i:=n+1 downto k do a[i]:=a[i-1];
a[k] := 2;
for i := 1 to n+1 do
write(a[i]:3);
end.
var n,a,max,i:integer;
begin
readln(n);
max:=-30001;
for i:=1 to n do
begin
read(a);
if (a mod 2=0)and(a>max) then max:=a;
end;
if max<>-30001 then writeln(max)
else writeln('No');
end.
Пример:
5
12 65 74 87 64
74