Заменить все отрицательные элементы нулями - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы