Ответ:

если подойдет pascal, то код ниже:

Объяснение:

var a: array[1..10] of integer;

   i, p: integer;

begin

 p := 1;

 for i := 1 to 10 do begin

   a[i] := round(random(10)) + 1;

   Write(a[i], ' ');

   if i < 6 then p := p * a[i];

 end;

 WriteLn;

 WriteLn('Произведение первых пяти элементов равно ', p);

end.