Question

Автоматически задаётся массив из 15 элементов. Переставить их в обратном порядке. Паскаль!

Answer 1

var
a : array [1..15] of real;
i : integer;
c : real;
begin
randomize;
for i := 1 to 15 do
begin
a[i] := random (100);
write (a[i], ' ');
end;
writeln;
for i := 1 to 7 do
begin
c := a[i];
a[i] := a[15 - i + 1];
a[15 - i + 1] := c;
end;
for i := 1 to 15 do
write (a[i], ' ');
readln;
end.

Answer 2

Для перестановки элементов массива в обратном порядке на языке Pascal можно использовать следующий код:

program ReverseArray;
var
  arr: array[1..15] of Integer;
  i, temp: Integer;
begin
  // Автоматически заданный массив из 15 элементов
  for i := 1 to 15 do
    arr[i] := i;

// Перестановка элементов в обратном порядке
  for i := 1 to 7 do
  begin
    temp := arr[i];
    arr[i] := arr[16 - i];
    arr[16 - i] := temp;
  end;

// Вывод массива
  for i := 1 to 15 do
    Write(arr[i], ' ');
end.

В этом коде мы сначала автоматически задаем массив `arr` из 15 элементов, заполняя его значениями от 1 до 15. Затем мы используем цикл `for` для перестановки элементов массива в обратном порядке. Мы проходим по первой половине массива и меняем местами элементы с соответствующими элементами из второй половины массива. Наконец, мы выводим элементы массива в обратном порядке.

Обратите внимание, что в Pascal индексация массивов начинается с 1, поэтому мы используем индексы от 1 до 15 для доступа к элементам массива.

Результат выполнения программы будет следующим: `15 14 13 12 11 10 9 8 7 6 5 4 3 2 1`.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.