Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2016 - Komputer , Nomor 29

29

Diberikan program sebagai berikut, berapa nilai array ar setelah pemanggilan mantaps(5)?

var
 ar : array[1..10] of integer = (1,6,2,3,4,7,2,4,2,1);

procedure mantaps(n : integer);
var
 i : integer;
 iNi : integer;
 temp : integer;
begin
 if(n > 1) then begin
 iNi := n;

 for i := 1 to n-1 do begin
 if(ar[i] < ar[iNi]) then iNi := i;
 end;
 temp := ar[n];
 ar[n] := ar[iNi];
 ar[iNi] := temp;
 mantaps(n-1);
 end;
end;