Counting the number of even and odd elements in a vector using a for loop?

In this article, we will discuss how to find the number of even and odd elements in a vector with its working example in the R Programming Language using R for loop.

Syntax:

vector <- c(...)  # Replace ... with the vector elements
even_count <- 0
odd_count <- 0
for (element in vector) {
  if (element %% 2 == 0) {
    even_count <- even_count + 1
  } else {
    odd_count <- odd_count + 1
  }
}
cat("Number of even elements:", even_count, "\n")
cat("Number of odd elements:", odd_count, "\n")

Example 1

R

vector <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

even_count <- 0
odd_count <- 0

for (element in vector) {
  if (element %% 2 == 0) {
    even_count <- even_count + 1
  } else {
    odd_count <- odd_count + 1
  }
}

cat("Number of even elements:", even_count, "\n")
cat("Number of odd elements:", odd_count, "\n")

Output:

Number of even elements: 5 

Number of odd elements: 5

• Create a vector with the given elements.
• Initialize a variable even_count to store the count of even elements. Set its initial value to 0.
• Initialize a variable odd_count to store the count of odd elements. Set its initial value to 0.
• Start a for loop that iterates through each element in the vector.
• Check if the current element is even (divisible by 2).
• If the current element is even, increment the even_count by 1.
• If the current element is not even (i.e., odd):
• Increment the odd_count by 1.
• Print the no. of even and odd count

Example 2

R

vector <- c(11, 22, 33, 44, 55, 66, 77, 88, 99 )

even_count <- 0
odd_count <- 0

for (element in vector) {
  if (element %% 2 == 0) {
    even_count <- even_count + 1
  } else {
    odd_count <- odd_count + 1
  }
}

cat("Number of even elements:", even_count, "\n")
cat("Number of odd elements:", odd_count, "\n")

Output:

Number of even elements: 4 
Number of odd elements: 5 

Example 3

R

vector <- c(111, 221, 331, 441, 552, 662, 771, 881, 991 )

even_count <- 0
odd_count <- 0

for (element in vector) {
  if (element %% 2 == 0) {
    even_count <- even_count + 1
  } else {
    odd_count <- odd_count + 1
  }
}

cat("Number of even elements:", even_count, "\n")
cat("Number of odd elements:", odd_count, "\n")

Output:

Number of even elements: 2 

Number of odd elements: 7