uses wincrt;
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure BacaLarik (var A : LarikInt; N : integer);
var
k : integer;
begin
for k:= 1 to N do
begin
write ('Masukkan elemen ke-' ,k,' : ');
readln (A[k])
end;
end.
type LarikInt = array [1..100] of integer;
var
A:LarikInt;
procedure BacaLarik (var A : LarikInt; N : integer);
var
k : integer;
begin
for k:= 1 to N do
begin
write ('Masukkan elemen ke-' ,k,' : ');
readln (A[k])
end;
end.
0 Response to "Cara menggunakan array versi 1 di program pascal"
Posting Komentar