10 lines
342 B
ObjectPascal
10 lines
342 B
ObjectPascal
// 3.11.1. Метод расширения Swap для списков и массивов
|
|
begin
|
|
var L := Lst(1..10);
|
|
// Меняет местами элементы списка
|
|
L.Swap(0,9).Swap(1,8).Println;
|
|
|
|
var a := Arr(1..10);
|
|
// Меняет местами элементы массива
|
|
a.Swap(0,9).Swap(1,8).Print;
|
|
end. |