Yuk bantu teman kamu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2013 - Komputer , Nomor 38

38

Diberikan potongan program berikut ini:

program hahaha;
var
 n, i, j, hehe : integer;
 a, hoho : array [0..1000] of integer;
begin
 read(n);
 for i := 1 to n do read(a[i]);
 for i := 1 to n do hoho[i] := 1;
 for i := 1 to n do
 for j := 1 to i-1 do
 if (a[j] < a[i]) and (hoho[j] + 1 > hoho[i]) then
 hoho[i] := hoho[j] + 1;
 hehe := 0;
 for i := 1 to n do
 if (hoho[i] > hehe) then hehe := hoho[i];
 write(hehe);
end.

Berapakah nilai keluaran dari program tersebut, jika diberi masukan sebagai berikut?

10

4 1 6 2 8 3 0 7 9 5