Найти в массиве количество элементов, больших 5 - Turbo Pascal

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

Создать одномерный массив из 10 вещественных чисел из диапазона от 5 до 15. Вывести массив на экран. Найти в этом массиве количество элементов,больших 5

Решение задачи: «Найти в массиве количество элементов, больших 5»

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

b:=15;
a:=5;
k:=0;
for i:=1 to n do
 begin
  x[i]:=random(b-a+1)+a; 
  write(x[i],' ');
  if x[i]>5 then
   inc(k);
 end;

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

Переменная b инициализируется значением 15.
Переменная a инициализируется значением 5.
Переменная k инициализируется значением 0.
Переменная i принимает значения от 1 до n.
В цикле for i:=1 to n do выполняется следующий код:
- Переменная x[i] инициализируется случайным числом в диапазоне от b-a+1 до b.
- Число x[i] выводится на экран с пробелом.
- Если x[i] больше 5, то значение переменной k увеличивается на 1.
Код завершается. Код подсчитывает количество элементов в массиве, которые больше 5.