Информатика, опубликовано 2018-08-22 19:51:54 by Гость
Ребят помогите срочно!!!!!! Дано 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
Next
n = Massiv(Massiv.Length - 1)
For i = 0 To Massiv.Length - 1
If Massiv(i) Next
c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox (Summ)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на