Дан массив a состоящий из 30 целых чисел - рост 30 учеников школы. Сколько из них имеет рост больше 170 см? Можно ли сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см) ?

Формат входных данных

На единственной строке через пробел записаны 30 целых чисел (100≤ai≤220) (100≤ai≤220) - росты учеников.

Формат выходных данных

Требуется в первой строке вывести единственное число - количество учеников, рост которых не меньше 170.

На следующей строке вывести "YES", если баскетбольную команду набрать можно, иначе вывести "NO".

Question

Информатика

Олегыч

21 октября, 22:16

Дан массив a состоящий из 30 целых чисел - рост 30 учеников школы. Сколько из них имеет рост больше 170 см? Можно ли сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см) ?

Формат входных данных

На единственной строке через пробел записаны 30 целых чисел (100≤ai≤220) (100≤ai≤220) - росты учеников.

Формат выходных данных

Требуется в первой строке вывести единственное число - количество учеников, рост которых не меньше 170.

На следующей строке вывести "YES", если баскетбольную команду набрать можно, иначе вывести "NO".

+2

Ответы (1)

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

Аидка · Answer 1

Var

i, c: integer;

ar: array[1 ... 30]of integer;

begin

c : = 0;

for i : = 1 to 30 do begin

read (ar[i]) ;

if (ar[i] > 170) then c : = c + 1;

end;

writeln (c) ;

if (c > = 5) then write ('YES')

else write ('NO') ;

end.