Туплю)))
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