Переписать элементы массива X в массив Y и подсчитать их количество - VB
Формулировка задачи:
массив x(70). Переписать элементы массива X в массив Y и подсчитать их количество. Условия и ограчения: 1>=x(i)>=-1
Решение задачи: «Переписать элементы массива X в массив Y и подсчитать их количество»
textual
Листинг программы
Option Base 1
Private Sub Command1_Click()
Const c = 70
Dim x$(c), y$(), f&, d%
Randomize Timer
For f = 1 To c
x(f) = Round(-10 + (Rnd * 21), 1)
Next
'============= Переписать значения
For f = 1 To c
If Abs(x(f)) <= 1 Then
d = d + 1: ReDim Preserve y(d): y(d) = x(f)
End If
Next
Cls
Print "Массив Х = {" & Join(x, ";") & "}"
Print "Массив Y = {" & Join(y, ";") & "}"
Print "Количество с Условием и ограчением: 1>=x(i)>=-1 ... = " & d
End Sub