Question

Помогите плиз!
Необходимо задать массив размерностью 5. Заполнить массив случайными числами в интервале{-1;1} и вывести элементы на экран.

Answer 1

Не совсем понятно ограничение {-1;1} ( это (-1;1) или [-1;1]?). Также не понятно какой тип случайных чисел. (Буду использовать integer)
Поэтому решение будет с ограничением [-1;1] :

var A:array[1..5] of integer;
i:integer;

Begin
Randomize;
For i:=1 to 5 do
BEGIN
A[i]:=Random(-1;1);
WriteLn(A[i],’ ‘);
End;
End.