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

Question

Информатика

Томуля

20 августа, 06:57

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

+4

Ответы (1)

Знаете ответ на вопрос?

Муся · 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