Составьте программу уменьшения всех эллементов массива в 10 раз - VB
Формулировка задачи:
Помогите решить задачи:
1) Составьте программу уменьшения всех эллементов массива в 10 раз
2) Составьте программу вставки в массив А(N) третьего эллемента с конца массива равного 7
3) Составьте программу формирования из массива А(N) двух массивов в которых первый массив заполнен предшествующими минимальному, а второй остальным эллементам
Решение задачи: «Составьте программу уменьшения всех эллементов массива в 10 раз»
textual
Листинг программы
Private Sub Command1_Click() Dim A, B() As Single, C() As Single Dim i As Integer, j As Integer, k As Integer, nPos As Integer A = Array(1, -2, 3, 4, -5, 6, 7, -8, 9, 10) Print "Исходный массив" For i = 0 To UBound(A) Print A(i); If A(i) >= 0 Then nPos = nPos + 1 Next i ReDim B(nPos - 1), C(UBound(A) - nPos) Print Print "Результат" For i = 0 To UBound(A) If A(i) >= 0 Then B(j) = A(i) j = j + 1 Else C(k) = A(i) k = k + 1 End If Next i For i = 0 To UBound(B) Print B(i); Next i Print For i = 0 To UBound(C) Print C(i); Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д