Дан целочисленный массив из 40 элементов...

Задание:

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

const
N=40; 
var a: array [1..N] of integer; 
    i, j, k: longint; 
begin
  for i:=1 to N do
    readln(a[i]); 
…
end.
 

Решение на языке Паскаль:

Фрагмент программы:

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 begin
k:=k+1;
end;
writeln(k);
 

Разбор:

* В переменной k программа будет считать количество пар элементов массива, сумма которых не кратна 6, а произведение меньше 1000. Изначально присвоим ей значение 0.

* В цикле (for) для i зададим значения от 1 до N-1, то есть от 1 до 39, чтобы в последнем цикле не было сбоев программы. Проверяем два условия (if): Первое - если сумма пар не делится на 6, то есть остаток от деления на 6 не равен нулю, Второе - произведение пар меньше 1000, если оба условия выполняются, увеличиваем значение переменной k на единицу.

* После цикла выводим на экран значение k, то есть количество подходящих по условию пар.