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

§ 1.4. Обработка одномерных массивов целых чисел на языке Паскаль Гдз по информатике 9 класс по учебнику Босова. Базовый уровень. Обновленные ФГОС 2021 год.

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

Ответ

Программа на Паскале, подсчитывающая количество претендентов на участие в баскетбольной команде, если рост должен быть не менее 170 см:

program CountEligiblePlayers;

var
height: array[1..50] of Integer;
countEligible: Integer;
i: Integer;

begin
countEligible := 0;

Randomize; // Необходимо для генерации случайных чисел

writeln('Рост претендентов:');

for i := 1 to 50 do
begin
height[i] := Random(51) + 150; // Генерация роста от 150 до 200 см
writeln('Игрок ', i, ': ', height[i], ' см');

if height[i] >= 170 then
  countEligible := countEligible + 1;

end;

writeln('Количество претендентов, подходящих для команды:', countEligible);
end.

В данной программе рост каждого из 50 претендентов генерируется случайным образом в диапазоне от 150 до 200 см. Затем программа подсчитывает количество претендентов, чей рост не менее 170 см, и выводит результат.