Код ниже
Объяснение:
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.
