Question

пожалуйста помогите!!!

В одномерном массиве X(15) найти:произведение элементов, удовлетворяющих условию 0 < tgxi < 1, а также сумму положительных

Answer 1

Var
X:array[1..15]of integer;
P,S,i:integer;
Begin
P:=1;
S:=0;
WriteLn('Введи элементы массива');
For i:= 1 to 15 do
 Begin
 Read(X[i]);
 if (Tan(i)>0)and(Tan(i)<1) then P:=P*X[i];
 if X[i]>0 then S:=S+X[i]
 End;
WriteLn('Произведение равно ',P);
WriteLn('Сумма положительных элементов равна ',S)
End.

Answer 2

Если Tan(x) используете, то пишите, что это PascalABC. В канонах Паскаля (и большинстве реализаций) этой функции нет.