Язык - 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;