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. I
nitialize a variableodd_count
to store the count of odd elements. Set its initial value to 0.- Start a
for
loop that iterates through each element in thevector
. - Check if the current
element
is even (divisible by 2). - If the current
element
is even, increment theeven_count
by 1. I
f the currentelement
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