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

PascalABC.Net версия 3.2

begin
  var a:=ArrRandom(10,0,100); a.Println;
  Writeln('Количество пар равно ',
    a.Pairwise.Where(x-gt;((x.Item1+x.Item2) mod 6lt;gt;0)
    and (x.Item1*x.Item2lt;1000)).Count)
end.

Пример работы программки
84 11 3 74 61 62 52 97 99 35
Количество пар одинаково 3

Объяснения.
ArrRandom делает нужный массив, Println выводит его на экран.
Расширение PairWise порождает последовательность из пар примыкающих частей,
Where образует фильтр этих пар с необходимыми условиями, а Count подсчитывает количество пар, прошедших фильтр.

Код на языке C:

int sum = 0; //Сумма 2-ух, рядом стоящих частей
int pro = 1; //Творенье 2-ух, рядом стоящих частей
int count = 0; //Инициализация переменной, отвечающей за количество пар 
int[] array = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ; //Объявляем массив из 10 частей
for (int i = 0; i lt; 9; i++) //Цикл от 0 до 9
   
sum = sum + array[i] + array[i + 1];  //Сумма = 0 + текущий элемент + последующий элемент
pro = pro * array[i] * array[i + 1];  //Произведение = 1 * текущий элемент * последующий элемент 
Console.WriteLine("Сумма пары " + array[i] + " и " + array[i + 1] + " = " + sum + ", а творенье = " + pro); //Вывод
if ((sum % 6 == 1) amp;amp; (pro lt; 1000)) //Проверяем условие: если сумма делится на 6 с остатком и произведение меньше 1000, тогда    
            
   count++; //Количество пар + 1
                    
   sum = 0; //Сумма = 0, чтоб не учитывалось ее предшествующее значение
   pro = 1; //Творение = 1, чтоб не учитывалось его предшествующее значение
          
   Console.WriteLine();       
   Console.WriteLine("Количество пар = " + count); //Вывод количества пар      
   Console.ReadKey();