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

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

34

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

var
    rumah: array[1..25] of integer;

procedure buat(x, y:integer);
begin
       rumah[x] := rumah[x] + 1;
       rumah[y+1] := rumah[y + 1] -1;
end;
function hitung():integer;
var
      i, tmp, pintu, jendela: integer;
begin
       tmp := 0; pintu := 0; jendela := 0;
       for i := 1 to 25 do
       begin
              tmp := tmp + rumah[i];
              if tmp > pintu then
              begin
                      pintu := tmp;
                      jendela := i;
              end;
       end;
       hitung := jendela;
end;

begin
             buat(4, 8);
             buat(3, 6);
             buat(10, 15);
             buat(14, 20);
             writeln(hitung());
end.