Question

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

Answer 1

Const n=20;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(21000)-10000;
 write(a[i],' ');
 end;
writeln;
k:=0;
for i:=1 to n-1 do
 if (a[i]*a[i+1] mod 2=0)and(a[i]*a[i+1] mod 4<>0) then k:=k+1;
writeln('k = ',k);
end.

Пример (для n=10):
10563 9699 -210 -7757 6095 -8100 -9898 6507 -6578 -5793 
k = 5