Объявлен набор в школьную баскетбольную команду. Известен рост каждого из n учеников

Объявлен набор в школьную баскетбольную команду. Известен рост каждого из 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.

Опубликовано: 15.11.2019 Обновлено: 15.11.2019
Поделись с друзьями

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

17 + 9 =