Question

НУ, ПОМОГИТЕ, ПОЖАЛУЙСТА, КТО В ПАСКАЛЕ ХОРОШО РАЗБИРАЕТСЯ!
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых чётна, а произведение больше 100. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
const
N = 40;
var
a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
...
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.

Answer 1

for i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>100) then
 k:=k+1;
 end;
writeln(k);