Вводится рост опр. Кол-ва учеников в баскетбольную команду принимаются > 180 сколько учеников примут в команду и напишите коментарий к ним и делать в паскале
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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
