Program Menggunakan_Array2_1Dimensi

program array3;
uses crt;
var
matrik1:array[1..3]of integer;
matrik2:array[1..3]of integer;

begin
clrscr;
writeln('---By:David John Herik---');
matrik1[1]:=10;
matrik1[2]:=8;
matrik1[3]:=7;
matrik2[1]:=9;
matrik2[2]:=3;
matrik2[3]:=4;

writeln(matrik2[2]);
writeln(matrik2[1]);
writeln(matrik2[3]);
writeln(matrik1[2]);
writeln(matrik1[3]);
writeln(matrik1[1]);
readln;
end.

Output :