Акакий
6 год назад
Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.
ОТВЕТЫ
Posi
Aug 5, 2019
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 4lt;gt;0) then k:=k+1;
writeln(k = ,k);
end.
Пример (для n=10):
10563 9699 -210 -7757 6095 -8100 -9898 6507 -6578 -5793
k = 5
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 4lt;gt;0) then k:=k+1;
writeln(k = ,k);
end.
Пример (для n=10):
10563 9699 -210 -7757 6095 -8100 -9898 6507 -6578 -5793
k = 5
55
