Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников, которые хотят туда попасть. Составьте алгоритм подсчёта количества претендентов, если рост должен быть не менее 170 см (Паскаль, цикл пока).

Для того чтобы посчитать количество претендентов, рост которых не менее 170 см, можно воспользоваться циклом пока (который в языке Паскаль соответствует циклу while). Алгоритм будет следующим:

1. Читаем количество претендентов, то есть количество учеников n.

2. Далее, используя цикл пока, будем поочередно проверять рост каждого ученика.

3. Если рост ученика больше или равен 170 см, увеличиваем счётчик подходящих претендентов.

4. После того как все претенденты будут проверены, выводим результат.

Пример кода на языке Паскаль:

pascal
Копировать код
program CountCandidates;
var
  n, i, height, count: integer;
begin
  count := 0;  { инициализируем счётчик подходящих претендентов }
  
  { Читаем количество учеников }
  readln(n);
  
  i := 1;
  while i <= n do
  begin
    { Читаем рост очередного ученика }
    readln(height);
    
    { Если рост ученика не менее 170 см, увеличиваем счётчик }
    if height >= 170 then
      count := count + 1;
      
    i := i + 1;  { увеличиваем счётчик учеников }
  end;
  
  { Выводим количество подходящих претендентов }
  writeln(count);
end.

Пояснение:

1. Мы начинаем с инициализации переменной count, которая будет хранить количество подходящих претендентов.

2. Далее мы читаем количество учеников n.

3. В цикле while проверяем рост каждого ученика. Если он подходит (то есть рост больше или равен 170 см), увеличиваем счётчик.

4. После завершения цикла выводим количество претендентов, удовлетворяющих условию.

Таким образом, с помощью данного алгоритма мы можем точно подсчитать количество претендентов, чей рост соответствует заданному условию.