Buat PROGRAM Mempertukarkan 2 Buah Larik !

PROGRAM Mempertukarkan;

{Program untuk mempertukarkan dua buah larik pada indeks yang bersesuaian}

DEKLARASI

A : Array[1..200] of Integer

B : Array[1..200] of Integer

C : Array[1..200] of Integer

i, N, tmp, mak : integer

ALGORITMA

Read (N) {tentukan jumlah elemen larik yang akan digunakan}

For i <- 1="" do="" n="" span="" to="">
Read (A[i]) {tentukan elemen larik A yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
Read (B[i]) {tentukan elemen larik B yang akan digunakan}
Endfor
For i <- do="" n="" span="" to="">
C[i] <- b="" i="" span="">
B[i] <- a="" i="" span="">
A[i] <- c="" i="" span="">
Endfor
For i <- 1="" do="" n="" span="" to="">
Write (A[i]) {cetak data larik A setelah saling tukar}
For i <- 1="" do="" n="" span="" to="">
Write (B[i]) {cetak data larik B setelah saling tukar}
Endfor

Oleh : http://adf.ly/5Dve9