Программа на visual basic

[winona]

Вычислить среднее геометрическое нечетных элементов одномерного массива принадлежащих интервалу (50,250).

[сфинкс]

qbasic qb64 решение похоже на требующееся
или уточните задание с примером

'ne4ety.bas
n = 10: DIM a(n): s = 1: k = 0: RANDOMIZE TIMER
FOR i = 1 TO n
    a(n) = INT(RND * 300) + 1
    IF a(n) >= 50 THEN IF a(n) <= 250 THEN IF INT(a(n) / 2) <> a(n) / 2 THEN s = s * a(n): k = k + 1: PRINT "*";
    PRINT a(n)
NEXT i
PRINT s, k, s / k
END

зато на другой язык можете перевести сами или помогут