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

7 lines
152 B
Plaintext

;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