pascalabcnet/InstallerSamples/LanguageFeatures/ExtensionMethods/SwapHalfArrays.pas

6 lines
104 B
ObjectPascal

// Ïîìåíÿòü äâå ïîëîâèíû ìàññèâà
var a := Arr(1,3,5,7);
begin
a.Skip(2).Concat(a.Take(2)).Print;
end.