Объявлен набор в школьную баскетбольную команду. Известен рост каждого из учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Напишите программу, считая рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов .
Алгоритм состоит из пяти шагов: установить счётчик равным нулю; random( даёт числа от
program Basketball;
const
N = ;
var
i, height, suitable: integer;
begin
randomize;
suitable := ;
for i := to N do
begin
height := + random( );
writeln('Претендент ', i, ': ', height, ' см');
if height >= then
suitable := suitable + ;
end;
writeln('Подходящих претендентов: ', suitable);
end.
randomize меняет начальное состояние генератора случайных чисел, поэтому при новых запусках возможны другие наборы ростов. Цикл выполняется ровно suitable равно числу уже просмотренных претендентов ростом от
Подсчитываются претенденты с ростом
