===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - x * x / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
y := x + 12 * Sin(2 * x) + Abs(x ** 3 + x ** 5);
Print(y)
end.
По моим рассуждениям это: 3)7, была бы норм фотка то точно бы сказал.
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>