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

1

Ответы и объяснения

2013-12-20T14:45:54+00:00
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       
Next
n = Massiv(Massiv.Length - 1)
For i = 0 To Massiv.Length - 1
            If Massiv(i) < n Then Summ += Massiv(i)       
Next
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox (Summ)