Пожалуйста помогите!!!
В одномерном массиве X(15) найти:произведение элементов, удовлетворяющих условию 0 < tgxi < 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
