15
Январь
2011
Найти среднее арифметическое последних элементов
Найти среднее арифметическое последних элементов
Const str$ = "2;-6;-3;0;2,1;3;-4;1" Dim Z As Variant, sum# Dim N#, K# Private Sub Form_Load() K = 5 Z = Split(str, ";") N = UBound(Z) For i = N To N - K + 1 Step -1 sum = sum + Z(i) Next MsgBox sum / K End Sub