Определить количество учеников, рост которых больше (меньше) роста ученика с номером N - Pascal

Формулировка задачи:

Рост учеников класса хранится в массиве. Определить количество учеников, рост которых больше (меньше) роста ученика с номером П. Значение П вводится с клавиатуры.

Решение задачи: «Определить количество учеников, рост которых больше (меньше) роста ученика с номером N»

Листинг программы

const k=30;
var a:array [1..k] of integer;
i,b,m,n:integer;
begin
Randomize; b:=0; m:=0;
for i:=1 to k do
begin
a[i]:=random(81)+100;
write(a[i]:5);
end;
writeln;
readln(n);
for i:=1 to k do
if a[i]<a[n] then inc(m) else inc(b);
writeln('Количество учеников, которые ниже ученика ',n,' - ',m);
writeln('Количество учеников, которые выше ученика ',n,' - ',b);
end.

Объяснение кода листинга программы

Создается константа k со значением 30.
Объявляется массив a для хранения роста учеников от 1 до k.
Объявляются переменные i, b, m, n типа integer.
Выполняется инициализация генератора случайных чисел.
Переменной b присваивается значение 0, что будет использоваться для подсчета количества учеников с ростом выше ученика с номером n.
Переменной m также присваивается значение 0 для подсчета количества учеников с ростом ниже ученика с номером n.
В цикле от 1 до k генерируются случайные значения роста для каждого ученика и выводятся на экран.
Пользователю предлагается ввести номер ученика n, чей рост будет использоваться для сравнения.
Затем происходит цикл, в котором для каждого ученика сравнивается его рост с ростом ученика n, и в зависимости от результата увеличивается либо переменная m (если рост меньше), либо переменная b (если рост больше).
На экран выводится количество учеников с ростом выше и ниже ученика с номером n.