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

Question

Информатика

Валерьяша

8 мая, 21:15

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

+4

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