Problem Statement

Loop over multiple arrays   (or lists or tuples or whatever they're called in your language)   and display the   i th   element of each. Use your language's   "for each"   loop if it has one, otherwise iterate through the collection in order with some other loop.

For this example, loop over the arrays: to produce the output:

If possible, also describe what happens when the arrays are of different lengths.

Let's start with the solution:

PROCEDURE Main()
	LOCAL a1 := { "a", "b", "c" }, ;
	      a2 := { "A", "B", "C", "D" }, ; // the last element "D" of this array will be ignored
	      a3 := { 1, 2, 3 }
	LOCAL e1, e2, e3
	
	FOR EACH e1, e2, e3 IN a1, a2, a3
		Qout( e1 + e2 + hb_ntos( e3 ) )
	NEXT
	RETURN