Вводится рост опр. Кол-ва учеников в баскетбольную команду принимаются amp;gt; 180

Вводится рост опр. Кол-ва учеников в баскетбольную команду принимаются gt; 180 сколько воспитанников воспримут в команду и напишите коментарий к ним и делать в паскале

Задать свой вопрос
1 ответ
Var rost :array[1..100] of integer; 
n, i, k: integer;
begin 
 writeln('Введите общее количество соучастников');
 readln(n);
  for i:=1 to n do 
    read(rost[i]); 
  for i:=1 to n do   
  if (rost[i] gt;=180) then Inc(k); 
writeln(k);
end.

Пример входных данных
3
179 180 194

Выходные данные
2
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт