Найти номер его первого локального минимума в массиве - 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

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

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