"объявлен набор в школьную баскетбольную команду. известен рост каждого из n учеников, желающих попасть в эту команду. составте алгоритм подсчета количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. запишите на языке паскаль программу. считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n=50."
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
end.