Задание 10 Параграф 1.4 ГДЗ Босова 9 класс 2023 (Информатика)

Задача

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.
Окно вывода:
199 171 162 171 151 188 171 177 175 191 167 166 160 189 185 181 193 171 151 167 169 168 197 157 193 157 169 177 150 155 168 173 182 162 190 178 155 179 177 172 177 178 155 197 197 185 161 176 196 191
Имеют шанс попасть в программу > > 31 человек

Подробный ответ

Нужно просмотреть рост всех $$N=50$$ претендентов и подсчитать, у скольких он не меньше $$170$$ см. Для этого заводим счётчик $$k$$, сначала равный нулю. Затем в цикле для каждого ученика генерируем рост из диапазона от $$150$$ до $$200$$ см и, если $$a[i] \ge 170$$, увеличиваем счётчик на 1.

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.

По приведённому окну вывода количество претендентов с ростом не менее $$170$$ см равно $$31$$.