Рекурсия: вычислить количество четных элементов массива - PascalABC.NET

Формулировка задачи:

В одномерном массиве, вводимом с клавиатуры и состоящем из N вещественных элементов, вычислить количество четных элементов массива (использовать РЕКУРСИВНУЮ ФУНКЦИЮ для вычисления).

Код к задаче: «Рекурсия: вычислить количество четных элементов массива - PascalABC.NET»

textual
const
  N = 10;
  
var
  a: array[1..N] of integer;
  
function count(index: integer): integer;
begin
  Result := 1 - a[index] mod 2;
  if index < n then Result += count(index + 1)
end;
 
begin
  for var i := 1 to N do read(a[i]);
  write(count(1))
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 4.125 из 5


СДЕЛАЙТЕ РЕПОСТ