Запишите на языке Паскаль программу решения задачи:

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

P. S. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n=50.

Question

Информатика

Настеха

3 марта, 13:16

Запишите на языке Паскаль программу решения задачи:

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

P. S. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n=50.

+4

Ответы (1)

Знаете ответ?

Всева · Answer 1

Program A;

var n, i, a, p:integer;

begin

Randomize;

n:=50;

for i:=1 to n do

begin

a:=random (50) + 150;

if a>=170 then

inc (p) ;

end;

writeln ('Шанс имеют ', p,' претендентов.') ;

end.