Цитата:
Сообщение от Sw_92
обязательно  первое дерево посвящу тебе  |
надеюсь ты парень
. а и там вместо 99 - 98 (опечатка), тьфу ты всё спать пора я ж не объявила
Dim mas(40),mas2(40) as byte
Dim a,b,srednee,proizv,i,j as byte
randomize()
a = 1+Math.round(98*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 & "]" )
