Перестановка элементов в массиве. - Pascal ABC

Формулировка задачи:

Даны действительные числа a1,...,a17. Получить: a11, a12,...,a17, a10, a9,...., a1;

Решение задачи: «Перестановка элементов в массиве.»

Листинг программы

const n=17;
var a:array[1..n] of real;
    i:integer;
    x:real;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=9*random;
  write(a[i]:4:1);
 end;
writeln;
//перевернем весь массив
for i:=1 to n div 2 do
 begin
  x:=a[i];
  a[i]:=a[n-i+1];
  a[n-i+1]:=x;
 end;
//перевернем с 1 по 7
for i:=1 to 3 do
 begin
  x:=a[i];
  a[i]:=a[7-i+1];
  a[7-i+1]:=x;
 end;
for i:=1 to n do
write(a[i]:4:1);
end.

Объяснение кода листинга программы

В данном коде происходит перестановка элементов в массиве. Сначала объявляются переменные:

n - количество элементов в массиве (в данном случае 17);
a - массив для хранения чисел;
i - индекс элемента массива;
x - временная переменная для хранения числа. Далее происходит инициализация случайной генерации чисел от 0 до 9. Затем выводится исходный массив. Для каждого элемента массива выполняется следующая последовательность действий:
присваивается значение 9*random;
выводится значение элемента массива с помощью функции write. Далее происходит переворот всего массива. Для этого используется цикл for, который выполняется столько раз, сколько полных подмассивов содержит исходный массив. На каждой итерации цикла переменная x присваивается значению текущего элемента массива, а затем значениями элементов с индексами i и n-i+1 меняются местами. После этого выполняется еще один цикл for, который переставляет элементы массива с 1 по 7. На каждой итерации цикла переменная x присваивается значению текущего элемента массива, а затем значениями элементов с индексами i и 7-i+1 меняются местами. В конце выводится перевернутый массив.