Объявлен набор в школьную баскетбольную команду. известен рост каждого из 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[i]>170 then
t:=t+1;
end;
end.