Заменить все отрицательные элементы нулями - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д