С помощью массива. Найти произведения вектора нечетных чисел B(N) N<=20 (Delphi)

[Ayderka]

С помощью массива. Найти произведения вектора нечетных чисел B(N) N<=20?
Помогите пожалуйста разобраться.
На Delphi.

[Stilet]

Кажется что от тебя хотят это:

...
p:=1;
for i:=Low(b) to high(b) do 
 if not odd(b[i])  then p:=p*b[i];
...

Где р - такого же типа как и элемент массива В.
Массив то надеюсь ввести сам(а) сможешь?

[Ayderka]

Stilet.Спасибо тебе!

[type_Oleg]

Stilet, по-моему, надо без not
odd - это как раз нечетность.

[Serge_Bliznykov]

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

Stilet, по-моему, надо без not
odd - это как раз нечетность.

всё, поздняк метаться.
радостная Ayderka уже убежала с некорректным решением!

[Ayderka]

Я мужского рода просто Ayderka назвал себя.
а с задачей разобрался
Вот может кому нибудь понадобится:

var B: array[1..20] of real;
i, cod: integer;
c,p:real;
begin
for i:=1 to 20 do
Val(stringgrid1.Cells[i-1,0],b[i],cod);
p:=1;
for i:=1 to 20 do
begin
c:=i/2;
if frac(c)<>(0)then p:=p*b[i]
end;

label3.Caption:=label3.Caption+floa ttostr(p);
end;

end.

[Serge_Bliznykov]

c:=i/2;
 if frac(c)<>(0)then p:=p*b[i]

жуть!!!
во-первых, не используйте вещественные переменные без крайней необходимости.

во-вторых, замените данный кусок кода на:

for i:=1 to 20 do
    if odd(i) then p:=p*b[i];

или, если Вам по каким-то причинам не хочется использовать встроенную функцию проверки на нечётность, тогда уж так:

for i:=1 to 20 do
    if (i mod 2)<>0 then p:=p*b[i];

Я мужского рода просто Ayderka назвал себя.

Приношу свои извинения. Ник меня с толку сбил...

[Ayderka]

Спасибо за совет, тот кусок кода заменил, все работает.Я просто новичек в этом деле вот и зарегистрировался здесь.

[Serge_Bliznykov]

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

Спасибо за совет, тот кусок кода заменил, все работает.Я просто новичек в этом деле вот и зарегистрировался здесь.

Пожалуйста.

Ну, так Вас же никто ни в чём не обвиняет. Все мы были новичками когда-то!
В том и смысл любой учёбы - узнать как можно делать, узнать как делать не надо и чем одно от другого отличается.
А на форуме, в меру сил, знаний, опыта, свободного времени, как раз и пытаются наставить на верный путь.