RosettaCodeData/Task/Arrays/PureBasic/arrays-3.purebasic

7 lines
152 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
;Find all 6 non-zero cells from the Array above
For i=0 To ArraySize(MyArray())
If MyArray(i)
PrintN(Str(i)+" differs from zero.")
EndIf
Next