Berikut contoh program array 1 dimensi menggunakan bahasa pemprograman pascal.
program paramarray;
uses crt;
const max = 100;type
bilangan = array [1..max] of integer;
procedure inputarray(A:bilangan; N:integer);
Var
i:integer;
Begin
Writeln ('Memasukkan data :');
For i := 1 to N do
write ('Masukkan nilai A[',i,']:');readln(A[i]);
end;
procedure OutputArray ( A:bilangan; N:integer);
var
i:integer;
begin
writeln ('Menampilkan data :');
for i :=1to N do
write ('A[',i,']=',A[i]);
end;
var
Arr:bilangan;
count:integer;
begin
clrscr;
write ('masukkan banyaknya elemen array:'); readln (count);
writeln;
outputArray (Arr, count);
readln;
End.
program paramarray;
uses crt;
const max = 100;type
bilangan = array [1..max] of integer;
procedure inputarray(A:bilangan; N:integer);
Var
i:integer;
Begin
Writeln ('Memasukkan data :');
For i := 1 to N do
write ('Masukkan nilai A[',i,']:');readln(A[i]);
end;
procedure OutputArray ( A:bilangan; N:integer);
var
i:integer;
begin
writeln ('Menampilkan data :');
for i :=1to N do
write ('A[',i,']=',A[i]);
end;
var
Arr:bilangan;
count:integer;
begin
clrscr;
write ('masukkan banyaknya elemen array:'); readln (count);
writeln;
outputArray (Arr, count);
readln;
End.