Информатика, опубликовано 2018-08-22 23:05:26 by Гость
Пожалуйста помогите!!! В одномерном массиве 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) if X[i]>0 then S:=S+X[i]
End;
WriteLn(Произведение равно ,P);
WriteLn(Сумма положительных элементов равна ,S)
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на