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

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

Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Заранее спасибо!

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

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

const N =14;
var
  mas:array[1..N] of integer;
  i,a,b,sum:integer;
begin
  Readln(A,B);
  sum := 0;
  for i:=1 to N do begin
    readln(mas[i]);
    if (mas[i]>=A)and(mas[i]<=B) then sum := sum + mas[i];
  end;
  write(sum);
end.

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

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

N - целочисленная переменная, значение которой равно 14.
mas - массив целых чисел, протяженность которого равна от 1 до N.
i - целочисленная переменная, используемая как счетчик.
a - целочисленная переменная, значение которой является начальным значением диапазона.
b - целочисленная переменная, значение которой является конечным значением диапазона.
sum - целочисленная переменная, в которую будет сохранена сумма элементов массива. Код начинается с чтения двух чисел A и B с помощью функции Readln. Затем инициализируется переменная sum значением 0. Далее идет цикл for, который выполняется N раз (где N - это значение переменной N). Внутри цикла считывается значение элемента массива mas[i] с помощью функции Readln. Если значение этого элемента находится в диапазоне от a до b (включительно), то к переменной sum прибавляется значение этого элемента. После завершения цикла выводится значение переменной sum с помощью функции Write. Таким образом, данный код позволяет прочитать два числа, вычислить сумму элементов массива, значения которых находятся в заданном диапазоне, и вывести эту сумму на экран.