Найти номер его первого локального минимума в массиве - VB
Формулировка задачи:
Дан массив размера N. Найти номер его первого локального минимума
(элемент, который меньше любого из своих соседей)
Решение задачи: «Найти номер его первого локального минимума в массиве»
textual
Листинг программы
Option Explicit Dim i%, N% Private Sub com1_Click() Cls Randomize Timer N = Val(txtT.Text) ReDim A%(1 To N) Print "массив" For i = 1 To N A(i) = 80 * Rnd Print Format(A(i), "00 "); Next Print: Print For i = 2 To N - 1 If A(i) < A(i - 1) And A(i) < A(i + 1) Then Print "номер локального минимума"; i GoTo 100 End If Next i Print "нет локального минимума" 100 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д