Информатика, 11 класс

program z5; var b:array[1..8] of integer; i,k:integer; begin for i:=1 to 8 do b[i]:=random(11); writeln('исходный массив: '); for i:=1 to 8 do write(b[i], ' '); writeln; k:=0; for i:=2 to 8 do if (b[i] mod 2 =0) and (b[i-1] mod 2=0) then k:=k+1; writeln('количество пар четных элементов = ',k); end.