Пример 2

Условие задачи:

В массиве вещественных чисел подсчитать количество элементов равных 0.

Схема алгоритма:

Здесь имеются отличия от предыдущей задачи только в алгоритме поиска количества элементов равных 0. Ввод исходных данных и вывод результата остаются такими же.

S = 0

For i = 1 To n

If a(i) = 0 Then S = S + 1

Next i

В переменной S накапливается значение количества элементов. Эти элементы массива а удовлетворяют условию а_i = 0. Суммируются единицы, которые в результате дадут нам значение общего количества элементов, отвечающих заданному условию.

Пример 3.

Условие задачи:

Найти максимальный элемент последовательности, состоящей из n элементов.

Приведем фрагмент схемы:

Программа:

max = a(1)

For i = 2 To n

If a(i) > max Then max = a(i)

Next i

Переменная max принимает значение первого элемента массива а. Над всеми остальными элементами массива выполняется однотипная операция: элемент массива сравнивается с переменной max. Если встречается элемент массива больший max, то max приобретает значение этого элемента. Если условие a_i > max не выполняется, то присваивания не происходит. По окончании цикла в переменной max останется значение самого большого элемента.