Дан массив из водимых чисел из клавиатуры,массив 3x4(Двумерный).Найти количество четных элементов массива.Исходный массив вывести на экран.(Turbo Pascal).

Предыдущий
вопрос Следующий
вопрос

Пример кода на Turbo Pascal:

program CountEvenNumbers;
var
arr: array[1..3, 1..4] of integer;
i, j, count: integer;
begin
// Ввод элементов массива
writeln('Введите элементы массива:');
for i := 1 to 3 do
for j := 1 to 4 do
readln(arr[i, j]);
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 3 do
begin
for j := 1 to 4 do
write(arr[i, j], ' ');
writeln;
end;
// Подсчет количества четных элементов
count := 0;
for i := 1 to 3 do
for j := 1 to 4 do
if arr[i, j] mod 2 = 0 then
count := count + 1;
writeln('Количество четных элементов в массиве: ', count);
end.

При запуске программы пользователь должен ввести элементы массива построчно. Программа выведет исходный массив на экран и количество четных элементов в нем.