program ReverseArray;

var
arr: array[1..10] of Integer;
i, temp: Integer;

begin
// Заполняем массив случайными числами
Randomize;
for i := 1 to 10 do
begin
arr[i] := Random(100);
end;

// Выводим исходный массив
writeln('Исходный массив:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;

// Реверс первой половины массива
for i := 1 to 5 do
begin
temp := arr[i];
arr[i] := arr[11-i];
arr[11-i] := temp;
end;

// Выводим результат реверса первой половины массива
writeln('Результат реверса первой половины массива:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;

// Реверс второй половины массива
for i := 6 to 10 do
begin
temp := arr[i];
arr[i] := arr[11-i];
arr[11-i] := temp;
end;

// Выводим результат реверса второй половины массива
writeln('Результат реверса второй половины массива:');
for i := 1 to 10 do
begin
write(arr[i], ' ');
end;
writeln;
end.