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

7 lines
152 B
Text
Raw Normal View History

2023-07-01 11:58:00 -04: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