Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 100 включительно опишите на ест
Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 100 включительно опишите на естественном или на одном из языков программирования алгоритм позволяющий найти и вывести количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000
//На Pascal const N = 40; var a: array [1..N] of longint; i,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 6 <> 0) and (a[i] * a[i + 1] <1000) then k:=k+1; writeln(k); <span>end.</span>