Вот нарисовал в Painte:
А вот выбор в ПАСКАЛЕ (оператор CASE)
И вот еще:
конъюнкция (логическое умножение)
Недостающий фрагмент:
k:=0;
for i:=1 to N-1 do
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin
k:=k+1;
end;
writeln(k);
Разбор:
k:=0; // переменная для подсчет количества пар элементов.
for i:=1 to N-1 do // запускаем цикл до N-1, чтобы в последнем цикле не было сбоев.
if ((a[i] + a[i+1])>0) and ((a[i] + a[i+1]) mod 2 = 1) then begin // находим нужную нам пару элементов с помощью условия. Как только находим:
k:=k+1; // увеличиваем переменную, то есть прибавляем уже к имеющемуся количеству пар еще одну.
end; // Конец цикла
writeln(k); // выводим на экран количество пар
var x: integer;
begin
write('Введите число: ');
readln(x);
if x mod 2=0 then write('число четное')
else write('число нечетное');
end.