Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Подсчитайте количествопретендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n = 50.
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>170 then t:=t+1; end; end.
