
В прямоугольной матрице найти количество чётных элементов


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

uses crt;
Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;
Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);
if (M>1000) or (N>1000) or (M<1) or (N<1)
then
Writeln('Ошибка, указанные значения выходят за пределы матрицы') else
Begin
Writeln('Введите элементы матрицы');
k:=0;
for i:=1 to N do
for j:=1 to M do
Begin
readln(mas[i,j]);
if (mas[i,j] mod 2 = 0) then k:=k+1;
end;
Writeln();
Writeln('Исходная матрица');
for i:=1 to N do
Begin
for j:=1 to M do
Begin
Write(mas[i,j], ' ')
end;
Writeln();
end;
Writeln();
Writeln('Количество четных элементов = ',k);
end;
readln;
end.



Чтобы найти количество четных элементов в прямоугольной матрице, необходимо пройтись по всем элементам матрицы и подсчитать количество чисел, которые делятся на 2 без остатка.
Вот пример кода на Python, который решает данную задачу:
pythondef count_even_elements(matrix):
count = 0
for row in matrix:
for element in row:
if element % 2 == 0:
count += 1
return count
# Пример матрицы
matrix = [
[1, 2, 3],
[4, 5, 6],
[7, 8, 9]
]
even_count = count_even_elements(matrix)
print("Количество четных элементов:", even_count)
В этом примере функция count_even_elements
принимает матрицу в качестве аргумента и проходит по каждому элементу матрицы, проверяя его на четность с помощью оператора %
. Если элемент делится на 2 без остатка, увеличиваем счетчик count
на 1. В конце функция возвращает общее количество четных элементов.
Данный пример матрицы содержит числа от 1 до 9, и в нем есть 4 четных числа (2, 4, 6 и 8), поэтому вывод программы будет:
Количество четных элементов: 4
Вы можете изменить матрицу, передавая различные значения, чтобы найти количество четных элементов для своей конкретной матрицы.


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