Ребят помогите срочно!!!!!!
Дано n целых чисел. Найти сумму чисел ,меньших последнего числа массива.
Дано n целых чисел. Найти сумму чисел ,меньших последнего числа массива.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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)