1. Array 1D: Angka Ganjil 5–100

Buat Array 1D berisi angka ganjil dari 5 sampai 100

# Cara 1
ganjil <- which(5:100 %% 2 == 1) + 4
ganjil
##  [1]  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53
## [26] 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
# Cara 2
bilgan <- subset(5:100, 5:100 %% 2 == 1)
bilgan
##  [1]  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53
## [26] 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

Tampilkan elemen yang habis dibagi 4

x <- 5:100

# Cara 1
elemen_habis_4 <- x[which(x %% 4 == 0)]
print(elemen_habis_4)
##  [1]   8  12  16  20  24  28  32  36  40  44  48  52  56  60  64  68  72  76  80
## [20]  84  88  92  96 100
# Cara 2
bagi_4 <- subset(5:100, (5:100) %% 4 == 0)
bagi_4
##  [1]   8  12  16  20  24  28  32  36  40  44  48  52  56  60  64  68  72  76  80
## [20]  84  88  92  96 100

Urutkan Array Secara Menurun

sort(bilgan, decreasing = TRUE)
##  [1] 99 97 95 93 91 89 87 85 83 81 79 77 75 73 71 69 67 65 63 61 59 57 55 53 51
## [26] 49 47 45 43 41 39 37 35 33 31 29 27 25 23 21 19 17 15 13 11  9  7  5

Hitung Jumlah Total dan Rata-Ratanya

# Jumlah total
jumlah_total <- sum(bilgan)
jumlah_total
## [1] 2496
# Rata-rata
rata_rata <- mean(bilgan)
rata_rata
## [1] 52

2. Array 2D (m x n) Berisi Kelipatan 4

Buat Array 2D

# Ukuran array
m <- 5
n <- 7

# Membuat array 2D
a2d <- matrix(seq(4, by = 4, length.out = m * n), nrow = m, ncol = n)
print(a2d)
##      [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,]    4   24   44   64   84  104  124
## [2,]    8   28   48   68   88  108  128
## [3,]   12   32   52   72   92  112  132
## [4,]   16   36   56   76   96  116  136
## [5,]   20   40   60   80  100  120  140

Hitung jumlah elemen lebih dari (m×n)

jelmn <- sum(a2d > (m * n))
jelmn
## [1] 27

Tampilkan elemen pada diagonal utama

gonal <- diag(a2d)
gonal
## [1]   4  28  52  76 100

Hitung jumlah seluruh elemen baris ke-2

baris2 <- sum(a2d[2, ])
baris2
## [1] 476

3. Array 3D dengan Angka 11–99

Buat Array 3D

# Dimensi array
x <- 3
y <- 7
z <- 4

# Membuat array dari angka 11-99 secara acak (tanpa pengulangan)
a3d <- array(sample(11:99, x*y*z), dim = c(x, y, z))

a. Tampilkan Layer ke-(z-3)

layer_z3 <- a3d[, , z-3]
print("Layer z-3:")
## [1] "Layer z-3:"
print(layer_z3)
##      [,1] [,2] [,3] [,4] [,5] [,6] [,7]
## [1,]   48   63   28   88   20   65   25
## [2,]   34   19   95   53   80   33   66
## [3,]   13   31   90   54   47   73   85

b. Nilai Maksimum dalam Array

nilai_maks <- max(a3d)
print(paste("Nilai maksimum:", nilai_maks))
## [1] "Nilai maksimum: 98"

c. Rata-rata Per Kolom

rata_kolom <- apply(a3d, 2, mean)  # Margin 2 = operasi per kolom
print("Rata-rata per kolom:")
## [1] "Rata-rata per kolom:"
print(rata_kolom)
## [1] 52.75000 53.25000 60.66667 51.41667 53.91667 53.33333 58.66667