Дан массив целых случайных чисел - VBA
Формулировка задачи:
Дан массив целых случайных чисел (размер массива определяет пользователь,
но в диапазоне [3;20]). Сформировать одномерный массив, элементы которого
равны сумме элемента заданного массива и следующего за ним элемента.
Очень нужно, не понимаю. Помогите кто может. Спасибо!
Решение задачи: «Дан массив целых случайных чисел»
textual
Листинг программы
- Function Sum1(A() As integer) As integer ()
- Dim R() as integer
- n%=Ubound(A,1)
- Redim R(1 to n%-1) As integer
- For i%=1 to n%-1
- R(i%)=A(i%)+A(i%+1)
- Next i%
- Sum1=R
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
