Программирование циклических алгоритмов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д