9класс
Страница 54-55 параграф 1.4 вопрос 10, ГДЗ по информатике за 9 класс к учебнику Босовой за 2023 год Просвещение
Номер 10. Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Составьте алгоритм подсчёта количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Напишите программу, считая рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов N = 50.
program Z_1_4_10;
const
N = 50;
var
a: array[1..N] of integer;
i, k: integer;
begin
randomize;
k := 0;
for i := 1 to N do
begin
a[i] := random(51) + 150;
write(a[i], ' ');
if a[i] >= 170 then inc(k)
end;
writeln;
writeln('Имеют шанс попасть в программу >> ', k,' человек')
end.
