Предмет: Информатика,
автор: Аноним
Дан массив a состоящий из 30 целых чисел — рост 30 учеников школы. Сколько из них имеет рост больше 170 см? Можно ли сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см)?
Формат входных данных
На единственной строке через пробел записаны 30 целых чисел (100≤ai≤220)(100≤ai≤220) — росты учеников.
Формат выходных данных
Требуется в первой строке вывести единственное число — количество учеников, рост которых не меньше 170.
На следующей строке вывести «YES», если баскетбольную команду набрать можно, иначе вывести «NO».
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Українська мова,
автор: nataliachyp
Предмет: Литература,
автор: Tymoor2021142
Предмет: Математика,
автор: timockoalina
Предмет: Математика,
автор: anksil716
Предмет: Литература,
автор: kaza4uk2011