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

берешь массив с числами и делаешь проверку для каждого числа (в цикле):for i:=0 to N dobegin if(massiv[i] < 0) and (massiv[i] mod 2 <> 0) then  summa:=summa+massiv[i];end;где i и summa - переменные (объявить в var как integer), в самом начале переменной сделать summa:=0;