Найти сумму положительных элементов массива, значения которых меньше 8 - Turbo Pascal

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

1.Найдите сумму положительных элементов массива,значения которых меньше 8

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

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

Program sum_arry;
Const n=5;
Type mas = array[1..n] of real;
Var a:mas;
    i:integer;
    sum:real;
BEGIN
  Writeln ('Vvedite masiv chisel ');
  sum:=0;
  for i:=1 to n do begin
    write ('a[',i,']');
    Readln (a[i]);
    if (a[i]>0) AND (a[i]<8) then sum:= sum + a[i];
 end;
 Write ('Summa = ',sum);
END.

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

Программа sum_arry на Turbo Pascal выполняет следующие действия:

Объявляет переменные: n (константа), mas (тип данных), a (переменная), i (переменная), sum (переменная).
Задает начальное значение переменной sum равным 0.
Выводит сообщение Vvedite masiv chisel, что означает Введите массив чисел.
Создает цикл for, который выполняется от 1 до n (количество элементов в массиве).
Внутри цикла выводит сообщение a[, i, ], где i - текущее значение переменной i.
Считывает значение элемента массива a[i] с помощью функции Readln.
Проверяет условие if (a[i]>0) AND (a[i]<8), что означает если элемент массива a[i] больше 0 и меньше 8.
Если условие выполняется, то прибавляет значение элемента массива a[i] к переменной sum.
По завершении цикла выводит сообщение Summa =, за которым следует значение переменной sum. Таким образом, программа выполняет задачу подсчета суммы положительных элементов массива, значения которых меньше 8.