Новости

Случайная программа

// Инвертирование массива
// Уровень сложности: 1
procedure Invert(a: array of integer);
begin
  var n := a.Length;
  for var i:=0 to n div 2 - 1 do
    Swap(a[i],a[n-i-1]);
end;

const N = 10;

begin
  var a := ArrRandom(N);
  Writeln('Исходный массив: ');
  a.Println;
  Invert(a);
  Writeln('После инверсии: ');
  a.Println;
  // Стандартная процедура
  Reverse(a);
  Writeln('После второй инверсии: ');
  a.Println;
end.