Вычислить количество компонентов массива, значения которых принадлежат отрезку - Free Pascal

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

Дан массив целых чисел{ai} (i=1, 2, …,n), целые c и d(c < d). Написать программу вычисления количества компонентов массива, значения которых принадлежат отрезку[c, d].

Решение задачи: «Вычислить количество компонентов массива, значения которых принадлежат отрезку»

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

  const lengthArray = 100;
  var a: array[1..lengthArray] of integer;
        c, d, i, sum : integer;
Begin
  readln(c, d);
  sum:=0;
  for i:=1 to lengthArray do
    begin
      read(a[i]);
    end;//заполнение массива
  for i:=1 to n do
    begin
      if (a[i]>c) and (a[i]<d) do
        sum:= sum + 1;
    end;//подсчет количества чисел из диапазона
  writeln(sum);
End.

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

Объявляются переменные: — lengthArray - длина массива (константа), равная 100; — a - массив, длиной 100, для хранения целых чисел; — c, d - границы диапазона для подсчета чисел; — i - счетчик для прохода по элементам массива; — sum - сумма для подсчета количества чисел.
В первой ветке цикла происходит заполнение массива значениями. Для этого используется цикл for, который выполняется от 1 до lengthArray. В каждой итерации цикла считывается значение элемента массива (используется функция read).
Во второй ветке цикла происходит подсчет количества чисел, принадлежащих заданному диапазону. Для этого также используется цикл for, который выполняется от 1 до lengthArray. Внутри цикла проверяется, принадлежит ли значение элемента массива заданному диапазону (используется операторы сравнения и логические операторы). Если условие выполняется, то к переменной sum прибавляется единица.
В конце программы выводится значение переменной sum (используется функция writeln).