Язык - Pascal. даны натуральные числа n, a1, ..., an. Составьте программу, которая вычисляет сумму тех элементов последовательности a1, ..., an, которые нечетны и отрицательны

Берешь массив с числами и делаешь проверку для каждого числа (в цикле) :

for i:=0 to N do

begin

if (massiv[i] < 0) and (massiv[i] mod 2 0) then

summa:=summa+massiv[i];

end;

где i и summa - переменные (объявить в var как integer), в самом начале переменной сделать summa:=0;