Переписать подряд в массив Y положительные элементы массива

@Anton30001 · Регистрация: 26.06.2013

Author24 — интернет-сервис помощи студентам

Переписать подряд в массив Y положительные элементы массива X (N), N ≤ 40.

@Wizard2509 · 16.12.2013, 11:24

Visual Basic

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

@Anton30001 0 / 0 / 0 Регистрация: 26.06.2013 Сообщений: 8
		1
	Переписать подряд в массив Y положительные элементы массива 14.12.2013, 01:25. Показов 1623. Ответов 1 Метки нет (Все метки) Переписать подряд в массив Y положительные элементы массива X (N), N ≤ 40. 0

	16.12.2013, 11:24

Переписать подряд в массив Y положительные элементы массива

Решение