Не работает програма в FoxPro

[маришка001]

Почему она не работает как надо?( Мне надо что бы она выводла все чила в масиве которые деляться на 5.

LOCAL  lnI, laArr1[8], laArr2[1]  
  laArr1[1]=50
  laArr1[2]=25	
  laArr1[3]=565  
  laArr1[4]=487  
  laArr1[5]=7591  
  laArr1[6]=846  
  laArr1[7]=47	
  laArr1[8]=958  
  FOR lnI=1 TO ALEN(laArr1)  
  DIMENSION laArr2[lnI,2]  
  laArr2[lnI,1]=laArr1[lnI]  
  IF!ROUND(laArr1[lnI]/5,0)+laArr1[lnI]==1
  laArr2[lnI,2]="деляться на 5" 
   laArr2[lnI,2]="не деляться на 5" 
  ELSE	
  ENDIF  
  ENDFOR  
  RETURN

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

вы, уж извините, но код жуткий.

давайте ещё раз внятно и по порядку, что именно Вам нужно получить.

Дан исходный массив, нужно вывести (куда? на экран? в другой массив? ) все числа, которые кратны 5 ?

попробуйте вот так, для начала...:

  PRIVATE  lnI
  DIMENSION laArr1[8]
  laArr1[1]=50
  laArr1[2]=25  
  laArr1[3]=565  
  laArr1[4]=487  
  laArr1[5]=7591  
  laArr1[6]=846  
  laArr1[7]=47  
  laArr1[8]=958  
  FOR lnI=1 TO ALEN(laArr1)  
    if INT(laArr1[lnI]/5) == (laArr1[lnI]/5)
      ? "число ",laArr1[lnI], " делится на 5"
    endif
  ENDFOR  
  RETURN