Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Запишите на языке Паскаль программу. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n = 50.

Чтобы решить эту задачу, мы можем написать программу на языке Паскаль, которая выполнит следующие шаги: 1. Сгенерирует случайные значения роста для 50 претендентов в диапазоне от 150 до 200 см. 2. Подсчитает количество претендентов, рост которых не менее 170 см. 3. Выведет полученное количество на экран. Вот программа на языке Паскаль, которая реализует этот алгоритм: ```pascal program BasketballTeamSelection; uses crt, sysutils; const n = 50; // Количество претендентов minHeight = 150; // Минимальный рост maxHeight = 200; // Максимальный рост requiredHeight = 170; // Минимально допустимый рост для команды var heights: array[1..n] of Integer; // Массив для хранения ростов претендентов i, qualifiedCount: Integer; // Переменные для индекса и счётчика begin Randomize; // Инициализация генератора случайных чисел qualifiedCount := 0; // Инициализация счётчика для роста не менее 170 см // Генерация случайных ростов и подсчёт квалифицированных претендентов for i := 1 to n do begin heights[i] := Random(maxHeight - minHeight + 1) + minHeight; // Генерация роста if heights[i] >= requiredHeight then qualifiedCount := qualifiedCount + 1; // Увеличиваем счётчик, если рост >= 170 см end; // Вывод результатов WriteLn('Количество претендентов с ростом не менее ', requiredHeight, ' см: ', qualifiedCount); ReadLn; // Ожидание ввода для завершения программы end. ``` ### Пояснение программы: 1. **Объявление констант и переменных:** - `n` — количество претендентов. - `minHeight` и `maxHeight` — диапазон возможных значений роста. - `requiredHeight` — минимальный рост для попадания в команду. - `heights` — массив для хранения значений роста каждого претендента. - `qualifiedCount` — счётчик для подсчёта количества претендентов с ростом не менее 170 см. 2. **Инициализация генератора случайных чисел:** - `Randomize` инициализирует генератор случайных чисел, чтобы каждый запуск программы давал разные результаты. 3. **Цикл генерации и подсчёта:** - В цикле `for` мы заполняем массив `heights` случайными числами от 150 до 200. - Если рост претендента больше или равен 170 см, мы увеличиваем `qualifiedCount`. 4. **Вывод результата:** - В конце программы мы выводим количество квалифицированных претендентов. ### Как запустить программу: - Скопируйте код в среду разработки для Паскаля (например, Free Pascal). - Скомпилируйте и запустите программу. После выполнения вы увидите количество претендентов с ростом не менее 170 см.