RosettaCodeData/Task/Arrays/PureBasic/arrays-3.basic
2023-07-01 13:44:08 -04: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