#Nomor 1.
#soal:. Buat array 1D berisi angka ganjil dari 5 sampai 100.
#Langkah membuat data Array
angka=5:100
array_ganjil=array(angka[angka%%2==1])
print(array_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
#Soal A:Tampilkan semua elemen yang habis dibagi 4.
#langkah menampilkan elemen yang habis di bagi 4
elemen_hbis_bagi4= array_ganjil[array_ganjil%%4==0]
print(elemen_hbis_bagi4)
## integer(0)
#soal B:Urutkan array tersebut secara menurun (descending)
# langkah mengurutkan array
urutan_array=sort(array_ganjil, decreasing = TRUE)
print(urutan_array)
## [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
#Soal c:Hitung jumlah total dan rata-ratanya.
# langkah mennghitung jumlah total dan rata-rata array
total_array=sum(array_ganjil)
rata2_array=mean(array_ganjil)
# menampilkan hasil perhitungan
cat("Jumlah total:",total_array, "\nRata-rata:", rata2_array)
## Jumlah total: 2496
## Rata-rata: 52
#2. Membuat array dua dimensi (m,n) yang elemennya kelipatan 4 dan m,n>4
#Misal, m=10 dan n=12
m=10
n=12
values=seq(4, by = 4, length.out= m*n) #membuat deret kelipatan 4 sepanjang m*n
matriks= matrix(values, nrow=m, ncol = n, byrow = TRUE) #mengubah matriks dengan baris m dan colom = n, byrow diisi dari arah kiri ke kanan
print(matriks)
## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
## [1,] 4 8 12 16 20 24 28 32 36 40 44 48
## [2,] 52 56 60 64 68 72 76 80 84 88 92 96
## [3,] 100 104 108 112 116 120 124 128 132 136 140 144
## [4,] 148 152 156 160 164 168 172 176 180 184 188 192
## [5,] 196 200 204 208 212 216 220 224 228 232 236 240
## [6,] 244 248 252 256 260 264 268 272 276 280 284 288
## [7,] 292 296 300 304 308 312 316 320 324 328 332 336
## [8,] 340 344 348 352 356 360 364 368 372 376 380 384
## [9,] 388 392 396 400 404 408 412 416 420 424 428 432
## [10,] 436 440 444 448 452 456 460 464 468 472 476 480
#a. Menghitung berapa elemen dalam array yang bernilai lebih dari (m*n)
a=m*n # hitung m*n
jumlah_elemen = sum (matriks > a) #menghitung jumlah elemen yang lebih dari a
print(jumlah_elemen)
## [1] 90
#Menampilkan elemen yang lebih dari a
Elemen_yang_lebih_besar_dari_a = matriks[matriks>a]
print(Elemen_yang_lebih_besar_dari_a)
## [1] 148 196 244 292 340 388 436 152 200 248 296 344 392 440 156 204 252 300 348
## [20] 396 444 160 208 256 304 352 400 448 164 212 260 308 356 404 452 168 216 264
## [39] 312 360 408 456 124 172 220 268 316 364 412 460 128 176 224 272 320 368 416
## [58] 464 132 180 228 276 324 372 420 468 136 184 232 280 328 376 424 472 140 188
## [77] 236 284 332 380 428 476 144 192 240 288 336 384 432 480
#b. Mengambil diagonal utama matriks m*n
Diagonal_utama = diag(matriks)
print(Diagonal_utama)
## [1] 4 56 108 160 212 264 316 368 420 472
#c. Menghitung jumlah seluruh elemen baris ke 2
Baris_ke_2= matriks [2, ] #Menampilkan Baris ke 2
print(Baris_ke_2)
## [1] 52 56 60 64 68 72 76 80 84 88 92 96
Jumlah_baris_ke_2 = sum(matriks[2, ])
print(Jumlah_baris_ke_2)
## [1] 888
#3.Membuat array 3D (X,Y,Z) dari angka lebih dari 10 dan kurang dari 100
x=3
y=4
z=7
a=array(11:99, dim=c(x,y,z))
a
## , , 1
##
## [,1] [,2] [,3] [,4]
## [1,] 11 14 17 20
## [2,] 12 15 18 21
## [3,] 13 16 19 22
##
## , , 2
##
## [,1] [,2] [,3] [,4]
## [1,] 23 26 29 32
## [2,] 24 27 30 33
## [3,] 25 28 31 34
##
## , , 3
##
## [,1] [,2] [,3] [,4]
## [1,] 35 38 41 44
## [2,] 36 39 42 45
## [3,] 37 40 43 46
##
## , , 4
##
## [,1] [,2] [,3] [,4]
## [1,] 47 50 53 56
## [2,] 48 51 54 57
## [3,] 49 52 55 58
##
## , , 5
##
## [,1] [,2] [,3] [,4]
## [1,] 59 62 65 68
## [2,] 60 63 66 69
## [3,] 61 64 67 70
##
## , , 6
##
## [,1] [,2] [,3] [,4]
## [1,] 71 74 77 80
## [2,] 72 75 78 81
## [3,] 73 76 79 82
##
## , , 7
##
## [,1] [,2] [,3] [,4]
## [1,] 83 86 89 92
## [2,] 84 87 90 93
## [3,] 85 88 91 94
#a.Seluruh elemen pada lapisan z-3
a[,,z-3]
## [,1] [,2] [,3] [,4]
## [1,] 47 50 53 56
## [2,] 48 51 54 57
## [3,] 49 52 55 58
#b.Nilai maksimum pada seluruh array
max(a)
## [1] 94
#c.Cari rata-rata per kolom
apply(a,c(2),mean)
## [1] 48 51 54 57