Question

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

Answer 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] >=180) then Inc(k); 
writeln(k);
end.

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

Выходные данные
2