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

Question

Информатика

Авдоха

13 января, 04:20

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

+3

Ответы (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.