номер 8 (страница 118) гдз по информатике 11 класс учебник Босова, Босова

Результат преобразования массива по данному алгоритму: первоначальный массив выводится в обратном порядке.

for i:=1 to n div 2 do – обозначает проход до середины массива (иначе элементы вернуться на свои места)
При использовании дополнительной переменной, значения двух элементов меняются местами:
r:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=r;

Программа для выполнения:

uses crt;
const n=7;
var a: array [1..n] of integer; r, i: integer;
begin
for i:=1 to n do
read (a[i]);
for i:=1 to n div 2 do
begin
r:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=r;
end;
for i:=1 to n do
write(a[i]:7);
end.