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

Program enot;Var A: array[1..50] of integer; i,k:integer;beginfor i:= 1 to 50 doa[i]:= random(51)+150;k:=0;for i:= 1 to 50 doif a[i]>170 then k:=k+1;writeln(k);end.