Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду. Подсчитайте количество претендентов, имеющих шанс попасть в команду, если рост игрока команды должен быть не менее 175 см. Считайте рост претендента в команду случайным числом из диапазона от 155 до 215 см, а число претендентов N = 40. Запишите на языке Паскаль программу. Выведите массив в строчку через пробел. Вывод результата выполните в формате: «Шанс попасть в команду имеют (число) претендентов» или «Шансов нет ни у кого» *Дополнительное задание (по желанию В этой же программе провести сортировку претендентов по росту (от максимального к минимальному) и вывести результат сортировки в формате: Претендент No(номер элемента массива) имеет рост (значение элемента массива) Претендент No(номер элемента массива) имеет рост (значение элемента массива) ... (всего 40 строк)
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
5задач по информатике, с решением
Автор: Mexx9050
написать код этого сайта в
Автор: Emasterova77
1) что выведет программа при вызове
Автор: Владислав-Аветисян217
Оператор ввода и вывода в языках программирования basic и pascal
Автор: mbrilliantova
var a: array[1..maxn] of integer;
skv,prod,gr,i: integer;
begin
writeln('введите ',maxn,' чисел');
skv:=0; prod:=1;
gr:=0;
for i:=1 to maxn do
begin
write(i,': '); readln(a[i]);
if a[i]<0 then skv:=skv+a[i]*a[i];
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
prod:=prod*a[i];
if abs(a[i])>100 then gr:=gr+1;
end;
writeln('сумма квадратов отрицательных: ',skv);
writeln('произведение четных на четных местах: ',prod);
writeln('больше 100 по модулю: ',gr);
end.
введите 15 чисел
1: 151
2: -231
3: 104
4: 19
5: 36
6: -112
7: 5
8: 8
9: 11
10: 13
11: 45
12: 5
13: 6
14: 17
15: 19
сумма квадратов отрицательных: 65905
произведение четных на четных местах: -896
больше 100 по модулю: 4