Дан массив a состоящий из n целых чисел. требуется найти количество пар соседних элементов массива, являющихся четными числами. формат входных данных на первой строке записано целое число n (0 на второй строке через пробел записаны n чисел (−1000≤ai≤1000) — элементы массива. формат выходных данных требуется вывести единственное число — количество пар четных чисел.

lolshowsasdasfd lolshowsasdasfd    3   06.08.2019 19:40    2

Ответы
oksana1410 oksana1410  09.08.2020 06:18
Var
  i, k, n: integer;
   a: array[1..10000]of integer;
 begin
  k := 0;
  readln(n);
   for i := 1 to n do read(a[i]);
   for i := 2 to n do if (a[i - 1] mod 2 = 0) and (a[i] mod 2 = 0) then k := k + 1; write(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика