// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; a:=a.Reverse.ToArray; a.Printlnend.
Примерn= 131 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.