Запишите на языке паскаль: определить, возможно ли сформировать баскетбольную команду из учащихся 9-х классов, если в команде должно быть не менее 6 человек ростом более 175.

шунгит шунгит    2   23.09.2019 18:20    2

Ответы
pmalino pmalino  08.10.2020 13:01
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('Всего учеников:'),162,183); a.Println;
  if a.Where(t->t>175).Count>=6 then Writeln('Можно')
  else Writeln('Нельзя')
end.

Примеры
Всего учеников: 28
173 167 173 175 182 173 163 174 183 171 178 178 167 163 182 177 164 164 171 171 172 174 173 171 168 166 171 183
Можно

Всего учеников: 15
181 169 163 163 166 164 176 174 173 168 168 162 167 178 175
Нельзя
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика