• Дан массив a состоящий из n

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

    — элементы массива.
    Формат выходных данных
    Требуется вывести единственное число — количество пар четных чисел.

Ответы 1

  • 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.
    • Автор:

      sabrina11
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years