Программирование циклических алгоритмов - VB

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

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

Есть два задания. Первое я кое как селал, просьба перепроверить. Однако насчет второго ну вообще не въезжаю что изменить в коде для результатов в задании 2.

Задание 1.

Дана последовательность из М (М = 10) чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел. Код

Задание 2.

Дана последовательность из M чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер. Именно разница в вопросе задания, и особенно "порядковый номер" сбивают с толку. Просьба помочь
Вот попытался сделать второе с массивом:
Это для части "найти наименьшее из чисел больше 10". В чем ошибка в коде?
Неужеди никто не знает? Вот, написал норм код, но оно выдает только наименьшее число. Помогите исправить чтоб находило наименьшее БОЛЬШЕ 10
Изменение на If x > b(i) And b(i) > 10 Then в условии не помогает..

Решение задачи: «Программирование циклических алгоритмов»

textual
Листинг программы
Module Module1
    Sub Main()
        Dim i, x, b(), M, n As Integer
        M = InputBox("Из скольких чисел ваша последовательность?", "Сколько чисел будем вводить?", 20)
        ReDim b(0 To M - 1)
        For i = 0 To M - 1
            b(i) = Int(InputBox("", "Введите число"))
        Next i
        For i = 0 To M - 1
            If b(i) > 10 Then
                x = b(i)
                n = i + 1
                Exit For
            End If
        Next
        For i = 0 To M - 1
            If x > b(i) And b(i) > 10 Then
                x = b(i)
                n = i + 1
            End If
        Next i
        MsgBox("Наименьшее из введеных чисел большее 10 = " & x)
        MsgBox("Его порядковый номер = " & n)
    End Sub
End Module

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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