Ввести одномерный массив x - VB

Узнай цену своей работы

Формулировка задачи:

очень прошу помощи: Ввести одномерный массив x= {-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3}. Заменить в нем все отрицательные элементы значением минимального элемента, а все положительные – максимальным значением.

Решение задачи: «Ввести одномерный массив x»

textual
Листинг программы
Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer: Dim min, max As Double
 
'1 ñïîñîá
Dim a() As Variant
a = Array(-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3)
'2 ñïîñîá
'For i = 0 To 7
'x = InputBox("Ââåäèòå" + Str(i) + "ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ*")
'Next
Print "ГЌГ*Гё Г¬Г*Г±Г±ГЁГў"
For i = 0 To 7
Print a(i)
Next
 
'Ïîèñê Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*îãî/ìèГ*ГЁГ¬Г*ëüГ*îãî Г§Г*Г*Г·ГҐГ*ГЁГї
max = a(0)
min = a(0)
 
For i = 0 To 6
If a(i + 1) > max Then
max = a(i + 1)
End If
If min > a(i + 1) Then
min = a(i + 1)
End If
Next
 
Print "ГЊГ*êñèìóì: ", max
Print "ГЊГЁГ*èìóì: ", min
'Г‡Г*ìåГ*Г*
For i = 0 To 7
If a(i) <> 0 Then
If a(i) < 0 Then
a(i) = min
Else
a(i) = max
End If
End If
Next
'Âûâîä
Print "Íîâûé Г¬Г*Г±Г±ГЁГў"
For i = 0 To 7
Print a(i)
Next
 
End Sub

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

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