Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
1 сентября 2022 20:47
988
объявлен набор в школьную баскетбольную команду.известен рост каждого из 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
Остались вопросы?
Еще вопросы по категории Информатика
Укажите способ записи следующего алгоритма: Обозначить первое из заданных чисел Х, второе - Y. Если Х = Y, то перейти к п. 8. Если Х > Y, то пе...
Вася задумал число от 1 до 100. Нужно отгадать это число за наименьшее число попыток, задавая Васе вопросы, на которые он отвечает <<да>>...
Задача 4: Петя, Ваня и Леон В известной игре Stawl Brarѕ Пeтe выпал новый персонаж, которого зовут Леон. У Пети и его друга Вани один аккаунт на двоих...
Вещественные числа представляются в компьютере в...
ПОЖАЛУЙСТА ПОМОГИТЕ С ЗАДАЧЕ ПО ИНФОРМАТИКЕ В некоторой базе данных хранятся записи,содержащие информацию о некоторых датах. Каждая запись содержит тр...