Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
1 сентября 2022 20:47
967
объявлен набор в школьную баскетбольную команду.известен рост каждого из 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. Какое из чисел 110011во 2-ой, 111 в4-ой , 35в 8-ой и 1В в16-ой является: a) наибольшим; b) наименьшим....
Переведите число 59, записанное в 10-й системе счисления в 2-ю, 8-ю и 16-ю системы счисления. Запишите решение и ответ....
Задание.Определить, сколько дней осталось от текущей даты до 31 декабря 2013 года: Для ввода сегодняшней даты используйте функцию СЕГОДНЯ (категория -...
Перевод чисел из десятичной системы счисления в шестнадцатеричную 256 400 1234 2012...
Какая последовательность символов могут служить именем в языке паскаль? Именно могут!!!! _mas maS1 d2 2d Прошу срочно !!!! помогите буду очень бл...