Дан массив a состоящий из n целых чисел. Требуется найти количество пар соседних эЛементов массива, являющихся четными числами. Формат входных данных На первой строке записано целое число n (0 На второй строке через пробел записаны n чисел (−1000≤ai≤1000) — элементы массива. Формат выходных данных Требуется вывести единственное число — количество пар четных чисел.
Лементов массива, являющихся четными числами. Формат входных данных На первой строке записано целое число n (0 На второй строке через пробел записаны n чисел (−1000≤ai≤1000) — элементы массива. Формат выходных данных Требуется вывести единственное число — количество пар четных чисел.
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.
Также наши пользователи интересуются:
88 задание памогите пожалуйстаРешите задачи 1. Сообщение, записано буквами из 64- символов алфавита, содержит 90 с
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив a состоящий из n целых чисел. Требуется найти количество пар соседних э» от пользователя MILANA LOMONOSOVA в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!