Дан целочисленный массив из 10 элементов. элементы массива могут принимать целые значения от 0 до 100 включительно. опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000. под парой подразумевается два подряд идущих элемента массива.

PascalABC.Net версия 3.2

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

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

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

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

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

from builtins import print

a = int(input())

b = int(input())

c = int(input())

d = int(input())

if (a + b + c + d) == (a * b * c * d):

  print('Сумма и произведения равны')

else:

  if (a + b + c + d) < (a * b * c * d):

      print('Cумма меньше произведения')

  else:

      print('Сумма больше произведения')

#2

sum = 0

for i in range(4):

  a = int(input())

  if a > 0:

      sum+=a

print(sum)

# 3

sum = 0

for i in range(4):

  a = int(input())

  if a < 0:

      sum += a

print(sum)

# 4

minus = 0

plus = 0

null = 0

for i in range(4):

  a = int(input())

  if a < 0:

      minus += 1

  else:

      if a > 0:

          plus += 1

      else:

          null += 1

print('Положительных {}, отрицательных {}, нулей {}'.format(plus, minus, null))

# 5

a = int(input())

b = int(input())

polusum = (a * b) / 2

ydvoen = 2 * a * b

if a > b:

  a = polusum

  b = ydvoen

else:

  b = polusum

  a = ydvoen

print(a, b)

# 6

z = []

for i in range(3):

  z.append(input())

if z[0] == min(z):

  z[0] = 0

else:

  if z[1] == min(z):

      z[1] = 0

  else:

      z[2] = 0

print(z)

#7

z = []

for i in range(4):

  z.append(int(input()))

print(max(z)-min(z))

# 8

M = 0

kvartal = 0

M = int(input())

if (M > 1) and (M < 4):

  kvartal = 1

  print('Квартал - ', kvartal)

else:

  if (M > 3) and (M < 7):

      kvartal = 2

      print('Квартал - ', kvartal)

  else:

      if (M > 6) and (M < 10):

          kvartal = 3

          print('Квартал - ', kvartal)

      else:

          if (M > 9) and (M < 13):

              kvartal = 4

              print('Квартал - ', kvartal)

if kvartal == 0:

  print('Введён неккоректный месяц')

# 9

list = ['крыса', 'корова', 'тигр', 'заяц', 'дракон', 'змея', 'лошадь', 'овца', 'обезьяна', 'петух', 'собака', 'свинья']

god = int(input())

opred = (god - 1995) % 12 - 1

print(list[opred])

Объяснение:

Язык программирования Pascal ABC
var n,k,i,j,d,c:integer;
label 1,2;
begin
1:writeln('Количество месяцев в календаре планеты Мульти:');
readln(n);
if (n>109)or(n<1) then
begin
writeln('Ошибка! Количество месяцев должно быть меньше или равно 109. Повторите ввод.');
goto 1;
end;
2:writeln('Номер дня на который приходится первое число первого месяца нового года:');
readln(k);
if (k>7)or(k<1) then
begin
writeln('Ошибка! Номер дня должен быть в диапозоне от 1 до 7. Повторите ввод.');
goto 2;
end;
d:=k;
for i:=1 to n do
begin
for j:=1+(k-1) to 30 do
begin
if (d=5)and(j=13) then c:=c+1;
d:=d+1;
if d>7 then d:=1;
end;
k:=1;
end;
writeln('Количество несчастливых дней в этом году: ',c);
end.