Question

Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

Answer 1

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.