Запишите пж задачу ** языке паскаль: Определить, возможно ли сформировать баскетбольную...

Question

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

Answer 1

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
Нельзя