Дан целочисленный массив из 40 частей. Элементы массива могут принимать значения

javascript:

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

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

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

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

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

 if (зн * массив[сч] gt; 0 amp;amp; (зн + массив[сч]) % 7 == 0)

  найдено++;

);

alert(найдено);

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] gt;  

0) then

inc(k);

writeln(k);

end.