|
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 18
|
|
| 1 | |
создатьКак создать третий массив, элементы которого являются суммами двух предыдущих?14.12.2010, 23:47. Показов 655. Ответов 0
Метки нет (Все метки)
Dim n As Integer, m As Integer Dim i As Integer, j As Integer Dim sum As Single Dim txt As String Randomize n = InputBox("1") m = InputBox("2") ReDim A(1 To n) As Single, B(1 To m) txt = "" For i = 1 To n A(i) = Rnd txt = txt & A(i) & " " sum = sum + A(i) Next i txt = txt & Chr(13) & Chr(13) For i = 1 To m B(i) = Rnd txt = txt & B(i) & " " sum = sum + B(i) Next i MsgBox txt & Chr(13) & Chr(13) & "sum = " & sum End Sub
0
|
|
(| 14.12.2010, 23:47 | |
|
Ответы с готовыми решениями:
0
Создать третий массив, элементами которого являются трёхзначные элементы двух массивов Создать третий массив, в котором собрать элементы двух предыдущих
|
| 14.12.2010, 23:47 | |
| 14.12.2010, 23:47 | |
|
Помогаю со студенческими работами здесь
1
Как из двух однонаправленных списков создать третий, который состоит из нечетных элементов предыдущих двух? Создать третий массив из элементов двух массивов одинаковой длины, которые являются попарно не четными Создать типизированный файл, куда записать n целых чисел. Из файла создать массив, элементы которого являются Массив: Создать новый массив, элементами которого являются все отрицательные элементы массива C Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
