Question

Дано целочисленный массив. Найдите количество четных элементов.Паскаль

Answer 1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,100); a.Println;
  Writeln('Четных элементов: ',a.Where(x->x.IsEven).Count)
end.

Тестовое решение
n= 15
48 48 85 94 39 45 22 16 75 51 85 97 91 31 92
Четных элементов: 6

Answer 2

В ответе прилагаю файл.

Answer 3

Для решения этой задачи можно использовать следующий алгоритм:

1. Создать переменную count и инициализировать её нулём. Она будет использоваться для подсчёта количества четных элементов.

2. Пройтись по всем элементам массива с помощью цикла.

3. Для каждого элемента массива проверить, является ли он чётным числом (т.е. делится на 2 без остатка). Если да, то увеличить count на 1.

4. После завершения цикла, count будет содержать количество четных элементов в массиве.

Пример кода на языке Паскаль:

program CountEvenNumbers;

var
  arr: array[1..10] of integer; // пример целочисленного массива
  i, count: integer;

begin
  count := 0; // инициализация переменной count

// заполнение массива (для примера)
  for i := 1 to 10 do
  begin
    arr[i] := i * 2; // чётные числа от 2 до 20
  end;

// подсчёт количества четных элементов
  for i := 1 to 10 do
  begin
    if arr[i] mod 2 = 0 then
    begin
      count := count + 1;
    end;
  end;

writeln('Количество четных элементов в массиве: ', count);
end.

В данном примере программа создаёт целочисленный массив arr и заполняет его чётными числами от 2 до 20. Затем она проходит по массиву и подсчитывает количество четных элементов, выводя результат на экран.

Таким образом, программа находит количество чётных элементов в заданном массиве.