Visual Basic. Теория. Нагина Е.К - 69 стр.

                                      69
' даны двамассива Х и У вУ , най тиSR и ум но ж ить нанего каж ды й эле-
мент, вХ най ти макс и мин и вклю чить вко нец У элементы меж дуним и.
Option Base 1
Dim x() As Integer
Dim y() As Integer
Dim M, N, i As Integer
Dim max, min, k, l, sr, c, kol As Integer

Private Sub Command1_Click()
For i = 1 To M
x(i) = InputBox("введите " & i & " элемент", "В во д элемента", "0")
Next i
End Sub

Private Sub Command2_Click()
For i = 1 To N
y(i) = InputBox("введите " & i & " элемент", "В во д элемента", "0")
Next i
End Sub

Private Sub Command3_Click()
sr = 0
For i = 1 To N
sr = sr + y(i)
Next i
sr = sr / N
' searching for max and min in X array
max = x(M): k = M
min = x(1): l = 1
For i = 1 To M
If x(i) > max Then max = x(i) And k = i
Next i
For i = 1 To M
If x(i) < min Then min = x(i) And l = i
Next i
If k < l Then c = k: k = l: l = c
kol = l - k - 1
For i = 1 To M
y(i) = y(i) * sr
Next i
' inserting
For i = N + 1 To N + kol
y(i) = x(k + 1)
Next i
End Sub