Const n=20;
var a:array[1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=2 to n do
if (a[i-1] mod 3 = 0)or(a[i] mod 3 = 0) then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
1 -5 -6 9 -9 -2 -3 10 1 3 -4 2 -2 1 3 -4 -6 6 8 2
k = 13