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.