Question

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

Answer 1

N это элементы массива
Раньше с паскалем не работал, но думаю что верно

for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;

Answer 2

Для нахождения количества четных элементов в двумерном массиве 3x4 и их вывода на экран в Turbo Pascal, вам потребуется следующий код:

pascalCopy code
program CountEvenElements;

const
  rows = 3;
  cols = 4;

var
  arr: array[1..rows, 1..cols] of Integer;
  i, j, evenCount: Integer;

begin
  writeln('Введите элементы массива:');
  
  // Ввод элементов массива с клавиатуры
  for i := 1 to rows do
  begin
    for j := 1 to cols do
    begin
      readln(arr[i, j]);
    end;
  end;
  
  // Вывод исходного массива на экран
  writeln('Исходный массив:');
  for i := 1 to rows do
  begin
    for j := 1 to cols do
    begin
      write(arr[i, j]:4);
    end;
    writeln;
  end;
  
  // Нахождение количества четных элементов
  evenCount := 0;
  for i := 1 to rows do
  begin
    for j := 1 to cols do
    begin
      if arr[i, j] mod 2 = 0 then
        Inc(evenCount);
    end;
  end;
  
  writeln('Количество четных элементов в массиве: ', evenCount);
  
end.

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