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

Olimpiade Sains Provinsi (OSP) 2018 - Komputer , Nomor 37

37

Diberikan program di bawah ini. Apa output dari program tersebut? {tuliskan jawaban sesuai dengan output yang dihasilkan}

var
    a :array[1..10] of integer;
    b :integer;
    i :integer;
    sum :integer;

procedure kwak(x:integer);
begin
    b :=b+1;
    a[b] :=x;
end;

procedure kwek;
var x :integer;
begin
    a[b] :=x;
    b :=b-1;
end;

procedure kwik;
begin
    for i :=1 to b-1 do
    begin
        a[i] :=a[i+1];
    end;
    b :=b-1;
end;

procedure kwok;
begin
    sum :=0;
    for i:=1 to b do
    begin
        m := sum + a[i];
    end;
    writeln(sum);
end;

begin
    b:=0;
    kwak(8); kwak(7); kwek;
    kwak(18); kwak(28); kwak(35);
    kwek; kwik; kwok;
end.