Question

Помогите написать программу на паскале абс тема "Перестановка элементов в одномерном массиве. " Дан массив размера N. Переставить в обратном порядке элементы массива, расположенные между его третьим и седьмым элементами, включая эти элементы.

Answer 1

//PascalABC.NET 3.1 сборка 1200
const
  n = 10;

begin
  var a := ArrRandom(n, -50, 50);
  a.Println();
 
  for var i := 0 to (7 - 3) div 2 do
  begin
    var t := a[3 + i];
    a[3 + i] := a[7 - i];
    a[7 - i] := t;
  end;
  a.Println();
end.