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

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

Ответы 2

  • Если Tan(x) используете, то пишите, что это PascalABC. В канонах Паскаля (и большинстве реализаций) этой функции нет.
  • VarX:array[1..15]of integer;P,S,i:integer;BeginP:=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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years