RosettaCodeData/Task/Arrays/PureBasic/arrays-3.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

6 lines
152 B
Text

;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