|
begin
|
|
var a1 := Arr('a','b','c');
|
|
var a2 := Arr('A','B','C');
|
|
var a3 := Arr(1,2,3);
|
|
for var i:=0 to a1.Length-1 do
|
|
Writeln(a1[i],a2[i],a3[i]);
|
|
Writeln;
|
|
foreach var (x,y,z) in a1.Zip(a2,a3) do
|
|
Writeln(x,y,z);
|
|
Writeln;
|
|
a1.Zip(a2,a3).PrintLines(t -> t[0]+t[1]+t[2]);
|
|
end.
|