Ответ:

5)

var

 A : array [1..15] of integer;

 k : integer;

begin

 read(k);

 for var i := 1 to k do

   write(A[i],' ');

end.

6)

var

 M : array [1..20] of integer;

 k : integer;

begin

 read(k);

 for var i := 1 to k do begin

   M[i] := random(14) + 10;

   write(M[i],' ')

 end;

end.