Помогите пожалуйста разобраться с задачей:
Дана непустая последовательность целых чисел, оканчивающаяся числом 100. Определить, есть ли в последовательности число 33. Если имеются несколько таких чисел, то определить индекс первого их них.
Я так думаю, что здесь надо использовать функцию rnd
Dim m(1 To 100) As Long
Dim a As Long
m(100) = Int((100 * Rnd))

Туплю)))
dim G(m)
dim f as long
f=0
for i=0 to m ; определили максимальный и минимальный
if amax<A(m) then amax=A(m)
if amin>A(m) then amin=A(m)
next i

for i=0 to m
count=0
for j=0 to i
if A(j)< (amax-amin)/j then count=count+1 ; меньше - увеличили счетчик
next j
G(i)=count
count =0
next i