Question

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

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.