Ребят помогите срочно! Дано n целых чисел. Найти сумму чисел, меньших последнего…

Dim n As Integer Dim Massiv () As Integer Dim Summ As Integer Dim i As Integer n=InputBox ("Введите n") ReDim Massiv (n) For i=0 To n Massiv (i)=Int (Rnd ()*100)+1 Nextn=Massiv (Massiv.Length — 1) For i=0 To Massiv.Length — 1 If Massiv (i) < n Then Summ+=Massiv (i) Next' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535MsgBox (Summ)