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

Question

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

Answer 1

Берешь массив с числами и делаешь проверку для каждого числа (в цикле):
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;