Одномерные массивы (Векторы). PascalAbc. Вывести сумму элементов, значения которых находятся в диапазоне - Pascal ABC

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

Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

Решение задачи: «Одномерные массивы (Векторы). PascalAbc. Вывести сумму элементов, значения которых находятся в диапазоне»

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

const
  N = 14;
var
  mas:array[1..N] of integer;
  i,s,a,b:integer;
begin
  readln(a,b);
  randomize;
  s:=0;
  for i:=1 to N do begin
    mas[i] := random(101)-50;
    if (mas[i]>=a)and(mas[i]<=b) then s:= s + mas[i];
    writeln('A[',i,'] = ',mas[i]);
  end;
  writeln('Сумма = ',s);
end.

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

В данном коде объявлены следующие переменные:

N - количество элементов в одномерном массиве (в данном случае 14);
mas - одномерный массив целых чисел;
i - счетчик для цикла;
s - сумма значений элементов массива, удовлетворяющих условию;
a - значение, с которым сравнивается значение элемента массива;
b - значение, с которым сравнивается значение элемента массива. Цикл for проходит по всем элементам массива от 1 до N. Внутри цикла каждому элементу присваивается случайное число от 101 до 50 (включительно) с помощью функции random(). Если значение элемента массива находится в диапазоне от a до b (включительно), то оно добавляется к переменной s. После завершения цикла выводится значение переменной s.