Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.
Var i,n,hi,kol:integer;
begin
kol:=0;
for i:=1 to n do //Задаем цикл
begin
readln(hi); //Вбиваем рост претендента
if hi>=170 then //Проверяем, соответствует ли его рост условию
kol:=kol+1; //Счетчик кол-ва подходящих под условие претендентов
end;
end.
Оцени ответ