Cara menggunakan array versi 1 di program pascal

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.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn