Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Подсчитайте количество претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не ...
Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Подсчитайте количество претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 170 см.
Считайте рост претендента в команду случайным числом из диапазона от 150 до 200 см, а число претендентов n = 50.
Гость
Ответ(ы) на вопрос:
Гостьvar a array 150..200 of Integer; i,n,t:Integer; begin t:=0; n:=50; for i:=1 to n do begin if a[i]>170 then t:=t+1; end; end.
Не нашли ответ?
Похожие вопросы