Найти сумму четных отрицательных элементов массива - Turbo Pascal

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

Найти сумму четных отрицательных элементов массива и вывести их номера на которых находятся эти элементы.

Решение задачи: «Найти сумму четных отрицательных элементов массива»

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

writeln('Номера четных отрицательных элементов:');
s:=0;
for i:=1 to n do
if (a[i]<0)and(a[i] mod 2=0)then
 begin
   write(i,' ');
   s:=s+a[i];
 end;
writeln;
writeln('Их сумма=',s);

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

Переменная n содержит количество элементов в массиве a.
Переменная a является одномерным массивом, в котором хранятся числа.
Переменная s инициализируется значением 0 и используется для хранения суммы четных отрицательных элементов массива.
Цикл for выполняется от 1 до n, перебирая все элементы массива a.
Условие if проверяет, является ли текущий элемент отрицательным и четным.
Если условие истинно, то выполняется блок кода, который:
- Выводит номер текущего элемента массива.
- Добавляет значение текущего элемента к переменной s.
После выполнения цикла for выводится сумма четных отрицательных элементов массива.