Dim Zmid As Double     ' среднее для Z
Dim Rmid As Double     ' среднее для R 

' если при i>10 Q(i) не определено, то
Dim Q(1 To 10) As Double

' если при i>10 Q(i) определено как Q(i) = (Zmid - Rmid) * (0 - R(i)), то
' Dim Q(1 To 15) As Double

Dim i As Integer

' заполнение массивов Z, R
' ...

' рассчет среднего для Z
Zmid = 0
For i = 1 To 10
  Zmid = Zmid + Z(i)
Next i
Zmid = Zmid / 10

' рассчет среднего для R
' ...

' заполнение массива Q
' ...

' вывод массива Q
' ...