uses wincrt;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure TulisLarik ( A : LarikInt; N : integer);
var
k : integer;
begin
for k:= 1 to N do
write ('elemen ke-' ,k,' : ',A[k]);
end.
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure TulisLarik ( A : LarikInt; N : integer);
var
k : integer;
begin
for k:= 1 to N do
write ('elemen ke-' ,k,' : ',A[k]);
end.
2 Responses to "Cara menggunakan array versi 2 di program pascal"
nice info sob..jangan lupa komentar di blogku ya sobat
ok gan, tunggu ja ya...
Posting Komentar