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

Ответ

Автор - raf1O5

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.