Подсчет количества элементов, удовлетворяющих заданному условию

•  Подсчитать, сколько раз в массиве встречается элемент, равный 10.

Задача решается по следующему алгоритму:

1. Количество нужных элементов k=0.

2. Проходим по всем элементам массива,

3. И если очередной элемент массива равен 10,

4. Тогда увеличиваем k (количество элементов равных 10)

Фрагмент программы:

Var  k : nteger; {количество элементов, равных 10}

…

Begin

...

{1} k:=0;

{2} for i : =1 to  n  do

{3} if  A[i]=10

{4} then k:=k+1;

…

<<Назад