Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников, желающих попасть в эту команду. Составьте алгоритм подсчета количества претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см. Запишите на языке Паскаль программу. Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n = 50.
Ответ
program basketball;
var
а: array [1 .. 50) of integer; // Исходные данные
i: integer; // Счетчик цикла
k: integer; // Результат
begin
randomize;
for i:=1 to 50 do
a[i] :=random(51)+150;
for i:=1 to 50 do
writeln (‘а[‘, i, ‘] k:=0;
for i:=1 to 50 do
if a[i]>=170 then k:=k+1;
writeln (‘k = ‘, k)
end.