VEKTOR (4)

v <- c(3, 8, 2, 5, 1)

min_value <- min(v)
print(paste("Elemen terkecil:", min_value))

## [1] "Elemen terkecil: 1"

max_value <- max(v)
print(paste("Elemen terbesar:", max_value))

## [1] "Elemen terbesar: 8"

sorted_v <- sort(v)
print("Vektor terurut secara menaik:")

## [1] "Vektor terurut secara menaik:"

print(sorted_v)

## [1] 1 2 3 5 8

sorted_v <- sort(v)
print("Vektor terurut secara menaik:")

## [1] "Vektor terurut secara menaik:"

print(sorted_v)

## [1] 1 2 3 5 8

index_8 <- which(v == 8)
print(paste("Indeks elemen 8:", index_8))

## [1] "Indeks elemen 8: 2"

v[index_8] <- 10
print("Vektor setelah mengganti elemen:")

## [1] "Vektor setelah mengganti elemen:"

print(v)

## [1]  3 10  2  5  1

count_greater_than_5 <- sum(v > 5)
print(paste("Jumlah elemen yang lebih besar dari 5:", count_greater_than_5))

## [1] "Jumlah elemen yang lebih besar dari 5: 1"

v_plus_2 <- v + 2
print("Vektor setelah penambahan konstanta:")

## [1] "Vektor setelah penambahan konstanta:"

print(v_plus_2)

## [1]  5 12  4  7  3