Ответ:

Код ниже

Объяснение:

program putElements;

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

i: byte;

begin

randomize;

for i := 1 to 15 do begin

arr[i] := Random(12) - 5;

end;

end.