Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
1 сентября 2022 20:47
920
объявлен набор в школьную баскетбольную команду.известен рост каждого из n учеников желающих попасть в эту команду. составьте алгоритм подсчета количества претендентов имеющих шанс попасть в команду если рост игрока команды должен быть не менее 170 см.запишите на языке Паскаль программу.считайте рост претендентов случайны числом из диапазона 150-200 см а число претендентов n=50.
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.
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.
0
·
Хороший ответ
1 сентября 2022 20:47
Остались вопросы?
Еще вопросы по категории Информатика
Какие языки в настоящее время являются самыми распространёнными в мире? (Ответ можно найти в энциклопедиях или в сети Интернет.)...
К числу основных функций текстового редактора относятся тест 1. копирование, перемещение, уничтожение и сортировка фрагментов текста; 2. создание, р...
Перевести число 234 из системы счисления по основанию 6 в систему счисления по основанию 5 (в ответе систему счисления не указывать)...
Создать текстовую игру в Python Написать код данной игры в программе Python Игрок перемещается по комнатам замка. В каждой комнате находится три дв...
Помогите срочно..!! Какие из предложений являются высказываниями?...