Замена отрицательных элементов массива абсолютными значениями - VB
Формулировка задачи:
Помогите написать программу:
В заданном векторе X1, X2, ..., Xn заменить значения отрицательных элементов их абсолютными величинами, при этом подсчитать число элементов, равных нулю.
Решение задачи: «Замена отрицательных элементов массива абсолютными значениями»
textual
Листинг программы
Private Sub Command1_Click() Dim X, CountN As Integer, i As Integer X = Array(9, -2, -5, 6, 0, -9, 2, 0, 0, 3, -1, -3, -7, 4, -8, 0, 9, -4) Print "Исходный массив:" For i = 0 To UBound(X) Print X(i); If X(i) = 0 Then CountN = CountN + 1 If X(i) < 0 Then X(i) = Abs(X(i)) Next i Print Print "Результат:" For i = 0 To UBound(X) Print X(i); Next i Print Print "Число элементов равных нулю = "; CountN End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д