Объявлен набор в школьную баскетбольную команду. Известен рост каждого из

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

Задать свой вопрос
1 ответ
Var i,n,hi,kol:integer;

begin
kol:=0;
for i:=1 to n do  //Задаем цикл 
 begin
 readln(hi);  //Вбиваем рост кандидата
 if higt;=170 then  //Проверяем, подходит ли его рост условию
  kol:=kol+1; //Счетчик кол-ва подходящих под условие кандидатов
 end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт