Дан массив, содержащий 2014 целых чисел в диапазоне от -10000 до 10000. Напишите ** одном...

Question

Дан массив, содержащий 2014 целых чисел в диапазоне от -10000 до 10000. Напишите на одном из языков программирования программу, которая находит в этом массиве количество пар соседних элементов массива, произведение которых нечётно, а сумма – положительна. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных.

Answer 1

N=2013, здесь вместе с нулем будет 2014 чисел(0 и 2013 = 2014 чисел всего)

const N = 2013;

var a:array[0..N] of integer;

i, kol:integer;

begin

kol:=0;

for i:=0 to N do

 readln(a[i]);

for i:=0 to N-1 do begin

if (a[i]+a[i+1] > 0) and ((a[i]*a[i+1] mod 2) = 1) then  

 kol:= kol + 1;

 end;

 writeln('Количество пар: ',kol);

end.