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

Question

Екатерина Калашникова

Информатика

17 января, 17:38

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

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Faida · Answer 1

var a: array [1 ... 50] of integer;

i, col: integer;

begin

writeln ('Генерируем массив с ростом претендентов');

randomize;

for i : = 1 to 50 do a[i]:=random (150, 200);

writeln ('Считаем количество подходящих претендентов');

for i : = 1 to 50 do if a[i] > 170 then col : = col + 1;

writeln ('Количество подходящих конкурсантов равно: ', col);

end.