6.)

var t: array [1..18] of real;
i: integer;
for i:=-2 to 15 do
t[i-3]:=sqr(sqr(i))+i+0.3;
end.

7.)

var d: array [1..15] of integer;
begin
for i:=1 to 15 do
d[i]:=random(15)-16;
end.