Дан целочисленный массив из 40 элементов. Элементы массива могут принимать значения от - 100 до 100 включительно. Напишите программу, позволяющую найти и вывести количество пар элементов массива, произведение которых положительно, а сумма крана 7. Под парой подразумевается два подряд идущих элемента массива

const

N = 40;

var

a: array [1..N] of longint;

i, j, k: longint;

begin

for i := 1 to N do

readln(a[i]);

k := 0;

for i := 1 to N - 1 do

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

0) then

inc(k);

writeln(k);

end.

javascript:

var массив = [], найдено = 0;

for (let сч = 0; сч < 40; сч++) массив.push((function(от, до) { return Math.round(от - 0.5 + Math.random() * (до - от + 1)); })(-100, 100));

массив.forEach(function (зн, ном) {

for (let сч = 0; сч < массив.length; сч++) {

 if (ном == сч) continue;

 if (зн * массив[сч] > 0 && (зн + массив[сч]) % 7 == 0)

  найдено++;

}

});

alert(найдено);