Даны массивы X1, ..X10 ; Y1, ..Y15.Если Xср > Yср, то заменить Yi < Yср на 2.5, в противоположном случае замени
помогите пожалуйста исправить ошибку?
Public i, j, S1, S2 As Single
Sub vlad()
Dim srx, sry, x(10), y(15) As Single
For j = 1 To 10
x(j) = Cells(j + 1, 2)
Next j
For i = 1 To 15
y(i) = Cells(i + 1, 4)
Next i
Call vld(sry, srx)
Cells(2, 6) = srx
Cells(3, 6) = sry
If srx > sry Then
For i = 1 To 15
If y(i) < sry Then
y(i) = 2.5
Cells(i + 1, 4) = y(i)
Else
End If
Next i
Else
For i = 1 To 10
If x(i) < srx Then
x(i) = 10
Cells(i + 1, 2) = x(i)
Else
End If
Next i
End If
End Sub
Function vld(sry, srx) As Single
Dim x(10), y(15) As Single
S1 = 0
For j = 1 To 10
x(j) = Cells(j + 1, 2)
S1 = S1 + x(j)
Next j
S2 = 0
For i = 1 To 15
y(i) = Cells(i + 1, 4)
S2 = S2 + y(i)
Next i
srx = S1 / 10
sry = S2 / 15
End Function