Предмет: Информатика,
автор: Аноним
Дан массив 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.
Похожие вопросы
Предмет: Химия,
автор: sinoptic645
Предмет: Биология,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: Физика,
автор: nanashka12
Предмет: Алгебра,
автор: DaniDanzik