11 lines
394 B
ObjectPascal
11 lines
394 B
ObjectPascal
|
// Расширенный foreach с распаковкой значений в переменные
|
|||
|
|
begin
|
|||
|
|
var a := Arr((1,2),(3,4),(5,6));
|
|||
|
|
foreach var (x,y) in a do // Распаковка кортежей
|
|||
|
|
Print(x,y);
|
|||
|
|
Println;
|
|||
|
|
var b := Arr(|1,2,3|,|4,5|,|6,7,8,9|);
|
|||
|
|
foreach var (x,y) in b do // Распаковка последовательностей
|
|||
|
|
Print(x,y);
|
|||
|
|
end.
|