Вопрос по информатике:
Пожалуйста помогите!!!
В одномерном массиве X(15) найти:произведение элементов, удовлетворяющих условию 0 < tgxi < 1, а также сумму положительных
- 13.04.2018 07:59
- Информатика
- remove_red_eye 666
- thumb_up 21
Ответы и объяснения 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.
- 14.04.2018 01:22
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.