مقدار دهی آرایه

[ATmegamin]

سلام
یک آرایه 100 عضوی داریم و یک آرایه 10 عضوی
لطفا یک حلقه for طراحی کنید که هر بار 10 عضو از آرایه بزرگتر رو داخل آرایه کوچکتر مقدار دهی کند
با تشکر
:متفکر:

[hossein-khoshseyar]

dim a(100) as int16
dim b(10) as int16
dim m,index as int16
index=0
for m=1 to 10
b(m)=a(index*10+)
index=index+1
next