Объявлен набор в футбольную команду. Известен рост каждого из n участников. Подсчитать кол-во претендентов, имеющих шанс попасть в команду, если рост игрока должен быть не меньше 170 см. (Число претендентов 50, а рост претендентов формируется случайным числом от 150 до 200)

Question

Информатика

Ленюся

9 июля, 18:51

Объявлен набор в футбольную команду. Известен рост каждого из n участников. Подсчитать кол-во претендентов, имеющих шанс попасть в команду, если рост игрока должен быть не меньше 170 см. (Число претендентов 50, а рост претендентов формируется случайным числом от 150 до 200)

+2

Ответы (1)

Знаете ответ на вопрос?

Игорка · Answer 1

Uses crt;

const

n=50;

var

a:array[1 ... n] of integer;

i, s:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=150+random (50) ;

if a[i]>=170 then s:=s+1

end;

writeln (s) ;

end.