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