Вычислить среднее геометрическое всех положительных членов последовательности {Xi},где...

[Maya Epos]

Вычислить среднее геометрическое всех положительных членов последовательности {Xi},где:
6.работа с массивами и матрицами.jpg
также экзаменационный пример по Паскалю..в паскале не шарю(пробовала,но не работало.помогите .не знаю с чего даже начать.
большое спасибо

[Mad_Cat]

Стучи контакты ниже)помогу за денюжку)

[Sauber]

также помогу за минимальную оплату) 402-142 -430

[Летучий_СкилетиК]

Упс.., а я просто так помогу (настроение у меня хорошее)

const n = 13;
var
   p, x, z :real;
   i :integer;
begin
p:=1;
for i:=1 to 13 do
begin
     z:= exp((i+1)*ln(0.6));
     if i+1 mod 2<>0 then z:=-z;
     x :=z - 2*sqr(cos(i));
     if x > 0 then p := p * x;
end;
...вычислить сред. геометрическое
write(p);
end.

вычислить сред. геометрическое предоставляю автору , напомню что сред. геом. вычисляется как p^(1/n);
p.s. да Mad_Cat верно заметили, ошибочку допустил, забил проверить на положительность.

[Maya Epos]

спасибо огромное..очень выручил.!!

[Mad_Cat]

Скилетик, а где проверка на положительность и зачем проверка на четность?

да Mad_Cat верно заметили, ошибочку допустил, забил проверить на положительность.

ну а теперь знак "-" потеряли
не

x :=exp((i+1)*ln(-0.6)) - 2*sqr(cos(i));

а

x :=-exp((i+1)*ln(0.6)) - 2*sqr(cos(i));

так как не (-0.6)^(i+1) а -(0.6)^(i+1);

[Летучий_СкилетиК]

Сообщение от Mad_Cat

ну а теперь знак "-" потеряли
не

x :=exp((i+1)*ln(-0.6)) - 2*sqr(cos(i));

а

x :=-exp((i+1)*ln(0.6)) - 2*sqr(cos(i));

так как не (-0.6)^(i+1) а -(0.6)^(i+1);

ничего я не потерял..., нужно -0.6 возвести в степень i+1, по вашему

-(0.6)^(i+1)

всегда ответ будет отрицательный, для возведения нужно проверять степень на четность,только когда не четно ответ отрицательный
код:

...
p:=1;
for i:=1 to 13 do
begin
     z:= exp((i+1)*ln(0.6));
     if i+1 mod 2<>0 then z:=-z;
     x :=z - 2*sqr(cos(i));
     if x > 0 then p := p * x;
end;...