Создание программы на Паскале, которая меняет первый и последний элементы массива на противоположные по знаку, можно выполнить в несколько шагов. Давайте разберем этот процесс подробно.

Сначала необходимо объявить массив. В Паскале мы можем использовать массивы фиксированного размера. Например, давайте создадим массив из 10 целых чисел.

var
  arr: array[1..10] of integer;

Теперь нам нужно заполнить массив данными. Мы можем сделать это с помощью цикла, который будет запрашивать у пользователя ввод значений.

var
  i: integer;
begin
  for i := 1 to 10 do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;
end;

Теперь, когда массив заполнен, мы можем изменить первый и последний элементы. Для этого просто умножим их на -1.

begin
  arr[1] := -arr[1]; // Меняем знак первого элемента
  arr[10] := -arr[10]; // Меняем знак последнего элемента
end;

После изменения значений давайте выведем массив на экран, чтобы убедиться, что изменения произошли.

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

Теперь объединим все шаги в одну программу:

program ChangeArrayElements;
var
  arr: array[1..10] of integer;
  i: integer;
begin
  // Ввод данных в массив
  for i := 1 to 10 do
  begin
    write('Введите элемент ', i, ': ');
    readln(arr[i]);
  end;

  // Изменение знаков первого и последнего элемента
  arr[1] := -arr[1];
  arr[10] := -arr[10];

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

Таким образом, мы создали программу, которая меняет первый и последний элементы массива на противоположные по знаку. Не забывайте тестировать вашу программу, чтобы убедиться, что она работает корректно!