@peinneon
1. for i:=1 to n do begin for j:=1 to (n div m) do for k:=1 to m do writeln('*'); for j:=1 to (n mod m) do writeln('-'); end; Karena y...
for i:= 1 to 10 do data2[i] := 0; for i:= 1 to 10 do inc(data2[data1[i]]); Pada potongan kode diatas, dan diketahui: data1 : array[1..10] of integer =...
41. Pseudocode diatas mengurutkan subarray ar dari a sampai b dan dari b+1 sampai c secara terpisah. ar = cdxsttabjr karena a = 1; b=7; c=10; maka dap...
Bisa saja compile error (illegal expression pd procedure, dibagian x dan b) Jika dianggap bisa dicompile: procedure tsb melakukan proses swap pada var...