Перестановка одномерного массива в обратном порядке. Значение длины массива вводиться с...

Question

Перестановка одномерного массива в обратном порядке. Значение длины массива вводиться с клавиатуры .Массив печать до и после перестановки .штук 9 формат 8

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a.Reverse.ToArray; a.Println
end.

Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1

Вариант для вывода элементов массива в 8 позициях:

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99);
  a.Select(t->Format('{0,8}',t)).Println('');
  a:=a.Reverse.ToArray;
  a.Select(t->Format('{0,8}',t)).Println('')
end.

Answer 2

//Pascal
var
  i, tmp, N: integer;
  A: array [1 .. 255] of integer;
begin
  write('Количество элементов в массиве: ');
  readln(N);
  writeln('Массив до перестановки.');
  randomize;
  for i := 1 to N do
  begin
    A[i] := random(10);
    write(A[i], ' ')
  end;
  writeln;
  for i := 1 to N div 2 do
  begin
    tmp := A[i];
    A[i] := A[N - i + 1];
    A[N - i + 1] := tmp;
  end;
  writeln('Массив после перестановки.');
  for i := 1 to N do write(A[i], ' ');
  writeln;
  readln;
end.

---