Запишите пж задачу на языке паскаль:
Определить, возможно ли сформировать баскетбольную команду из учащихся 9-х классов, если в команде должно быть не менее 6 человек ростом более 175.
Ответы
Ответ дал:
0
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
Нельзя
Внимание! Если программа не работает, обновите версию!
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
Нельзя
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад