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

196

364

Посмотреть ответы 2

Ответы на вопрос:

maryam67

Информатика

4,6(100 оценок)

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)