// Инвертирование массива
uses Arrays;

procedure Invert(a: array of T);
begin
 var n := a.Length;
 for var i:=0 to n div 2 - 1 do
 Swap(a[i],a[n-i-1]);
end;

begin
 var a: array of integer := CreateRandomIntegerArray(10);
 
 writeln('Исходный массив: ');
 a.Writeln;
 
 Invert(a);

 write('Массив после инвертирования: ');
 a.Writeln;
end.


 Похожие публикации
2015-11-04 • Просмотров [ 191 ]