Блок схема (найти наименьшее из всех чисел последовательности, больших 10, и его порядковый номер)

@Top Gamer · Регистрация: 23.02.2016

Студворк — интернет-сервис помощи студентам

Господа программисты, помогите сделать блок схему для данной программы.
Она выполняет следующее:

Кликните здесь для просмотра всего текста

Дана последовательность из М чисел. Найти наименьшее из всех чисел, больших 10, и его порядковый номер.

До этого никогда не имел дела с блок схемами.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

@Alex77755 · 29.04.2016, 20:19

До этого никогда не имел дела с блок схемами

И что?

Кликните здесь для просмотра всего текста

Меня всегда убивает такая аргументация!
Ты в школу пошёл и каждый день имел дело с тем, с чем никогда не имел дела!
Это же продолжается и в в ВУЗе! Ты поступал, что бы учиться! А не для того, что бы за тебя выполняли задания, а ты нашару получил диплом! Хачешь учиться - учись!. Не хочешь - в армию!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .