Запишите на языке Паскаль программу решения задачи номер 34 к § 3.4. Считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (Номер задачи 34 - Объявлен набор в школьную ба...
Запишите на языке Паскаль программу решения задачи номер 34 к § 3.4. Считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (Номер задачи 34 - Объявлен набор в школьную баскетбольную команду. Извесьен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
const
n = 50;
min = 150;
max = 200;
needed = 170;
begin
var a := ArrRandom(n, min, max);
Writeln('Всего претендентов ', a.Where(x -> x >= needed).Count);
end.
Не нашли ответ?
Похожие вопросы