Uses Wincrt; Var bilangan : array[1..50] of integer; begin ClrScr; Bilangan[1]:=3; Bilangan[2]:=29; Bilangan[3]:=30; Bilangan[4]:=31; Bilangan[5]:=23;
writeln(‘nilai variabel bilangan ke 3=’,bilangan[3]); readln; end.
Sahabat
You must be logged in to post a comment.