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

Question

Информатика

Агапит

15 декабря, 03:15

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

+5

Ответы (1)

Знаете ответ?

Вивиана · Answer 1

Program enot;

Var A: array[1 ... 50] of integer;

i, k:integer;

begin

for i: = 1 to 50 do

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

k:=0;

for i: = 1 to 50 do

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

writeln (k) ;

end.