6 декабря, 14:57

Дан одномерный массив А размерности N. Поменять местами его минимальный и максимальный значения элементов.

+3
Ответы (1)
  1. 6 декабря, 15:15
    0
    Dim i As Integer

    Dim min As Integer

    Dim max As Integer

    Dim N As Integer

    N = CInt (InputBox ("Введите N"))

    Dim A (N) As Integer

    min = 0

    max = 0

    For i = 0 To N

    If A (i) < A (min) Then min = i

    If A (i) < A (max) Then max = i

    Next

    i = A (min)

    A (min) = A (max)

    A (max) = i
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан одномерный массив А размерности N. Поменять местами его минимальный и максимальный значения элементов. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы