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

1 ответ

Посмотреть ответы

DevAdmin

1720

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.

Хороший ответ

1 сентября 2022 20:47

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

подсчитайте объём данных, передаваемых в секунду от видеопамяти к монитору в режиме 1024х768 пикселей с глубиной цвета 16 битов и частотой обновления... Помогите!!! В табличной форме представлен фрагмент базы данных: На какой позиции окажется товар *Сканер планшетный* , если произвести сортировку данн... Определите какое из указанных ниже имен файлов удовлетворяет маске: ?ba*r.?xt 1)bar.txt 2)obar.txt 3)obar.xt 4)barr.txt... Помогите, пожалуйста : Укажите, сколько раз будет выполнен цикл for i :=-1 to 2 do a:=a+1; а) 2 б)бесконечно в)0 г)3 д)4... 26. По какой из приведенных ниже команд ЭВМ выведет на экран значенне переменной Х a) WRITE ( 'X'); б) WRITE (X); b) WRITE (X=5); г) READ(X...