Задачи с массивами - VB (170120)

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

Помогите с задачей : В массиве из 10 положительных и отрицательных чисел найти наибольшее отрицательное число и его место в массиве. Я пробовал сам,мои наработки
Sub lab8()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = (Int(Rnd() * 100) + 1) - 50
Next i
Debug.Print "исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call obrabotka(m())
End Sub
Sub obrabotka(m1() As Integer)
min = 0: k = 1
For i = 2 To 10
If m1(i) < 0 Then
min = m1(i): k = i
End If
Next i
' вывод результатов
Debug.Print "Max="; min, "k="; k
End Sub


textual

Код к задаче: «Задачи с массивами - VB (170120)»

Sub lab8()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = (Int(Rnd() * 100) + 1) - 50
Next i
Debug.Print "исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
Call obrabotka(m())
End Sub
Sub obrabotka(m1() As Integer)
Min = -100
For i = 1 To 10
If m1(i) < 0 And m1(i) > Min Then
Min = m1(i): k = i
End If
Next i
' вывод результатов
Debug.Print "Max="; Min, "k="; k
End Sub
 
Private Sub Form_Load()
lab8
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.500 из 5

Источник