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

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

Question

Манюта

7 июля, 04:40

+5

Ответы (1)

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

Терентий · Answer 1

var

a array 150 ... 200 of Integer;

i, n, t:Integer;

begin

t:=0;

n:=50;

for i:=1 to n do

begin

if a[i]>170 then

t:=t+1;

end;

end.