Data update

Task/Multi-dimensional-array/REXX/multi-dimensional-array.rexx

@@ -0,0 +1,32 @@
+-- 21 Feb 2026
+include Setting
+
+say 'MULTI-DIMENSIONAL ARRAY'
+say version
+say
+-- Default value
+stem1.=0
+-- Incomplete multiplication table
+do i = 1 to 5
+   do j = 1 to 5
+      stem1.i.j=i*j
+   end
+end
+-- Show some results
+say 'Multiplication table'
+say '2 x 3 =' stem1.2.3
+say '5 x 2 =' stem1.5.2
+say '3 x 3 =' stem1.3.3
+say '4 x 6 =' stem1.4.6
+say
+-- Indices may have any value, not just numeric.
+a="~"; b=" "; c="'"
+stem2.a.b.c="Special indices"
+say "stem2.~. .' =" stem2.a.b.c
+say
+-- Dump variable pool
+call Showvars
+exit
+
+-- Showvars
+include Math