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

1 ответ

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

DevAdmin

1695

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

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

Найти нужный

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

Как понять,что введение с клавиатура число является числом Фибоначчи.Допустим условие:если введенное с клавиатур автомобиля является числом Фибоначчи,... 1 Тренировочная задача 2 [1 балл) Даны Минимальная температура, максимальная температура и текущая температура. Выведи действие климат-контроля: Если... 100D,B¹⁶... Сколько натуральных чисел расположено в интервале 157 в 8сс < x < 84 в 16сс нужно подробное решение... set_1 = {30,25,20,19} set_2 = {30,40,90,20} # 1 # вывести результат объединения множеств # вывести результат пересечения множеств # вывести ра...