Question

Запишите на языке Паскаль программу решения задачи номер 34 к § 3.4. Считайте рост претендента в команду случайным числом из диапозона от 150 до 200 см, а число претендентов n=50. (Номер задачи 34 - Объявлен набор в школьную баскетбольную команду. Извесьен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.

Answer 1

//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.