Переписать подряд в массив Y положительные элементы массива - VB
Формулировка задачи:
Переписать подряд в массив Y положительные элементы массива X (N), N ≤ 40.
Решение задачи: «Переписать подряд в массив Y положительные элементы массива»
textual
Листинг программы
Dim X(40) As Double Dim Y(40) As Double Dim i As Integer Dim j As Integer Dim N As Integer Private Sub Command1_Click() j = 0 N = 10 'количество элементов For i = 0 To N - 1 X(i) = Rnd() * 10 - 5 'генерируем массив случайных чисел от -5 до 5 Next i For i = 0 To N - 1 If X(i) > 0 Then Y(j) = X(i): j = j + 1 End If Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д