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