
Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве чётные числа в
порядке возрастания их индексов, а также их количество k

Ответы на вопрос

Const N = 5;
Var a: Array [1..N] of Integer;
i, k: Integer;
Begin
WriteLn('Введите ', N, ' целых чисел через пробел');
For i := 1 To N Do
Read(a[i]);
For i := 1 To N Do
If a[i] Mod 2 = 0 Then
Begin
Write(a[i], ' ');
k := k + 1;
End;
WriteLn;
WriteLn('Всего: ', k);
ReadLn;
End.



Для решения данной задачи можно использовать следующий алгоритм:
1. Создать переменную k и инициализировать ее нулем. Она будет служить для подсчета количества четных чисел в массиве.
2. Пройти по всем элементам массива с помощью цикла, начиная с первого элемента (индекс 0) и заканчивая последним элементом (индекс N-1).
3. Проверить каждый элемент массива на четность с помощью операции % (остаток от деления). Если элемент делится на 2 без остатка, то он является четным числом.
4. Если текущий элемент является четным числом, вывести его индекс (текущая итерация цикла) и увеличить значение переменной k на 1.
5. После завершения цикла вывести значение переменной k, которая будет содержать количество четных чисел в массиве.
Пример кода на языке Python:
```python def print_even_numbers(arr): k = 0 for i in range(len(arr)): if arr[i] % 2 == 0: print("Индекс:", i, "Четное число:", arr[i]) k += 1 print("Количество четных чисел:", k)
# Пример использования array = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10] print_even_numbers(array) ```
В данном примере выводится следующий результат:
``` Индекс: 1 Четное число: 2 Индекс: 3 Четное число: 4 Индекс: 5 Четное число: 6 Индекс: 7 Четное число: 8 Индекс: 9 Четное число: 10 Количество четных чисел: 5 ```
Таким образом, мы получаем отсортированный список четных чисел и их количество в заданном массиве.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili