Untitled

program ReverseArray;

var
  array1, reversedArray: array[1..10] of integer;
  i: integer;

begin
  // Задаем массив из 10 случайных чисел в интервале [-10, 10]
  Randomize;
  for i := 1 to 10 do
    array1[i] := Random(21) - 10;
  
  // Реверсируем все элементы, кроме последнего
  for i := 1 to 9 do
    reversedArray[i] := array1[10 - i];
  
  // Выводим исходный и реверсированный массивы
  writeln('Исходный массив:');
  for i := 1 to 10 do
    write(array1[i], ' ');
    
  writeln;
  
  writeln('Реверсированный массив (кроме последнего элемента):');
  for i := 1 to 9 do
    write(reversedArray[i], ' ');
  
end.