Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
1 сентября 2022 20:47
837
объявлен набор в школьную баскетбольную команду.известен рост каждого из 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
Остались вопросы?
Еще вопросы по категории Информатика
Сделайте Итоговую работу на тему: Поготовка реферата "История развития компьютерной техники"...
Выберите все элементы, принадлежащие пересечению множеств A = {1000, мыло, 12, 9, -1, ножницы} и B = {-1, мыло, котенок, 122, 90}...
скорость школьной сети равна 100 Мбит в секунду. определите объем файла, который можно скачать в этой сетиза 128 секунд Ответ запишите в мегабайтах...
Представьте десятичные числа в беззнаковом 8-разрядном формате: 65 и 125...
Какое окно считается активным? Выберите один ответ: 1. то, в котором работаем. 2. первое из открытых 3. любое...
Все предметы