Question

PASCAl ABC - В составе баскетбольной команды 12 игроков. Сколько игроков в команде имеют рост меньше среднего роста команды

Answer 1

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на алгоритм, который определяет и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.

PascalВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

const N = 30;

var A: array[1..N] of integer;

i, x, y: integer;

begin

for i:=1 to N do readln(A[i]);

...

end.

Answer 2

Для того чтобы узнать, сколько игроков в команде имеют рост меньше среднего роста команды, необходимо выполнить следующие шаги:

1. Найти средний рост команды. Для этого нужно сложить рост всех игроков и разделить полученную сумму на количество игроков.

2. Определить, какие игроки имеют рост ниже среднего. Для этого нужно сравнить рост каждого игрока с полученным в первом шаге средним ростом. Если рост игрока меньше среднего, то он удовлетворяет условию.

3. Посчитать количество игроков, удовлетворяющих условию. Для этого нужно пройтись по всем игрокам и подсчитать количество игроков, у которых рост ниже среднего.

Например, пусть рост игроков команды ABC равен: 180, 175, 185, 170, 190, 195, 200, 165, 175, 180, 185, 190.

1. Средний рост команды = (180 + 175 + 185 + 170 + 190 + 195 + 200 + 165 + 175 + 180 + 185 + 190) / 12 = 185.83

2. Игроки с ростом ниже среднего: 180, 175, 170, 165, 175.

3. Количество игроков с ростом ниже среднего = 5.

Таким образом, в команде ABC имеется 5 игроков с ростом меньше среднего роста команды.