End Sub

П р и м е р 2 (цикл со счетчиком). В компьютер последовательно вводятся 10 натуральных чисел (целые х). Определить, сколько среди них чисел, больших 10?

Алгоритм решения этой задачи представлен на рис. 6.2. В блоке 2 задается начальное значение счетчика k чисел, больших 10.

Цикл по вводу чисел и проверке условия их отбора организуется при помощи управляющей переменной цикла i.Действия по заданию начального значения i,изменениееена шаг Δi=1 (i = i +1) и проверка достижения конечного значения i = 10 задаются в блоке 3.

Значения чисел х вводятся с помощью диалоговых окон ввода
(блок 4). В условном блоке 5 производится проверка условия: x > 10. Если условие выполняется, то производится увеличение значения счетчика kна единицу (блок 6). Если х ≤ 10, то процесс ввода х и вычисления k повторяются, пока компьютер не проанализирует все 10 чисел.

Численное значение счетчика kвыводится с помощью диалогового окна вывода (блок 7).