Dim mas(40),mas2(40) as byte
Dim a,b,srednee as short
Dim proizv as integer
randomize()
a = 1+Math.round(99*rnd())
b = Math.round( a+(100-a)*rnd())
for i = 1 to 30
mas(i) = math.round(100 *rnd())
if mas(i) >=a and mas(i) <=b then
for j =1 to 30
if mas2(j) = 0 then mas2(j)=mas(i)
Next j
end if
Next i
i = 0 : proizv = 1
for j = 1 to 30
if mas2(j) <>0 then proizv = proizv*mas(2): i+=1
next
srednee = proizv ^ (1 / i)
debug.writeline(srendee & " - среднее геометрическое чисел, принадлежащих отрезку [" & a & "," & b & "]" )
ох уже 3 часа, я может чё проглядела (кстати все операторы с большой буквы не забывай )
|