Question

Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от -10000 до 10000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элемента массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумевается два соседних элемента массива.
Программа Паскаль.

Answer 1

program raf105;

var

 a:array[1..10] of integer;

 x,i,c: integer;

begin

writeln('Заполните массив:');

for i:=1 to 10 do

 readln(a[i]);

for i:=1 to 10-1 do

 if ((a[i]+a[i+1]) mod 2 = 0) and ((a[i]+a[i+1]) mod 4 <> 0)

   then c+= 1;

writeln('Вывод: ',c);

end.

PascalABC 3.4.2