1. Array 1D

Membuat 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

Menampilkan semua 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

Mengurutkan Array secara Menurun (Descending)

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

Menghitung 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

Membuat Array 2D dengan Kelipatan 4

# 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

Menghitung Berapa Elemen > (m 0d7 n)

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

Menampilkan Elemen pada Diagonal Utama

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

Menghitung Jumlah Seluruh Elemen Baris ke-2

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

3. Array 3D

Membuat Array 3D (x=4, y=7, z=5) dengan Angka 11-99

# Ukuran
x <- 4
y <- 7
z <- 5

# Membuat array 3D dengan angka 11-99
set.seed(123)  # Untuk hasil acak konsisten
a3d <- array(sample(11:99, x*y*z, replace = TRUE), dim = c(x, y, z))

a. Mengambil Elemen pada 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,]   51   70   37   79   23   31   70
## [2,]   84   63   48   82   92   89   26
## [3,]   33   17   99   86   35   51   16
## [4,]   37   63   44   73   48   57   82

b. Mencari Nilai Maksimum Seluruh Array

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

c. Menghitung Rata-rata per Kolom (Semua Layer Digabung)

rata_kolom <- apply(a3d, 2, mean)  # Margin 2 = per kolom
print("Rata-rata per kolom:")
## [1] "Rata-rata per kolom:"
print(rata_kolom)
## [1] 55.30 58.80 62.55 56.15 60.00 53.85 47.35