Nomor 1. Array 1D berisi angka ganjil dari 5 sampai 100

a1=array(seq(5, 100, by = 2)) print(a1)

a. Tampilkan elemen yang habis dibagi 4

a1_bagi4= a1[a1 %% 4 == 0] print(a1_bagi4)

b. Urutkan array secara menurun (descending)

a1_descending=sort(a1, decreasing =TRUE) print(a1_descending)

c. Hitung jumlah total dan rata-ratanya

total_a1=sum(a1) mean_a1=mean(a1) print(total_a1) print(mean_a1)

Nomor 2. Array 2D (m, n) dengan elemen kelipatan 4 dimana m,n > 4

m=5 n=5 array2d=array(seq(4, by = 4, length.out = m * n), dim = c(m, n)) print(array2d)

a. Hitung berapa elemen yang > (m * n)

elementarray=length(which(array2d > (m * n))) print(elementarray)

b. Tampilkan elemen diagonal utama

diagonal=diag(array2d) print(diagonal)

c. Hitung jumlah seluruh elemen pada baris ke-2

jumlahrow2=sum(array2d[2, ]) print(jumlahrow2)

#Nomor 3 #Array 3D (x, y, z) dengan angka >10 & <100 x=3 y=4 z=5 # generate sequence mulai 11 sebanyak xyz elemen array3d=array(seq(11, length.out = xyz), dim = c(x, y, z)) print(array3d)

a. Seluruh elemen pada lapisan ke-(z-3)

lapisan=z - 3 # misal z=5, layer ke-2 elements_layer=array3d[, , lapisan] print(elements_layer)

b. Nilai maksimum pada seluruh array

maks=max(array3d) print(maks)

c. Cari rata-rata per kolom

meancolayer=apply(array3d, c(2, 3), mean) print(meancolayer) colnames(meancolayer)=paste0(“Lapisan ke-”, 1:dim(array3d)[3]) rownames(meancolayer)=paste0(“Kolom ke-”, 1:dim(array3d)[2]) print(meancolayer)