var arr: array[1..7] of integer = (3, 5, 2, 1, 1, 7, 2);
cnt: array[1..10] of integer;
i, j: integer;
begin
for i := 1 to 7 do
inc(cnt[arr[i]]);
for i := 1 to 10 do
for j := 1 to cnt[i] do
write(i);
end.
Apakah keluaran dari program di atas?
a. 1122357
b. 7532211
c. 3521172
d. 1234567
e. 1123357
a.1122357
algoritma diatas ialah menghitung banyaknya angka pada arr. misalkan pada arr ada 2 bilangan angka (1). angka2 tersebut akan dihitung dan dimasukan pada array cnt.
maka:
cnt[3] : 1 cnt[5] : 1 cnt[2] : 2 cnt[1] : 2 cnt[7] : 1
lalu dibawahnya diminta untuk mengurutkan angka2 tersebut dari yang paling kecil, maka :
(a)1122357
cnt[1] = 2
cnt[2] = 2
cnt[3] = 1
cnt[5] = 1
cnt[7] = 1
jadi hasil akhirnya: 1122357 (A)
Not on only
1122357
Masuk untuk menulis jawaban