RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/Icon/loop-over-multiple-arrays-simultaneously-2.icon

link numbers  # for max

procedure main()

a := ["a","b","c"]
b := ["A","B","C","D"]
c := [1,2,3]

every i := 1 to max(*a,*b,*c) do
   write(a[i]|"","\t",b[i]|"","\t",c[i]|"")
end