Заменить все отрицательные элементы нулями - VB
Формулировка задачи:
Помогите пожалуйста с задачей:" Дан массив. Заменить все отрицательные элементы нулями".
Желательно самое простое решение.
Спасибо.
Решение задачи: «Заменить все отрицательные элементы нулями»
textual
Листинг программы
Private Sub Command1_Click()
Dim s As Double
Dim n As Double
Dim a() As Double
Dim i As Double
Cls
s = 20
's = InputBox("Введите количеcтво элементов массива")
Print "Первоначальный массив"
ReDim a(1 To s)
For i = 1 To s
a(i) = Int(Rnd * 10 - 5)
Print a(i);
Next
Print vbLf
Print "Получаемый массив"
For i = 1 To s
If a(i) < 0 Then a(i) = 0
Print a(i);
Next
End Sub