Array Digunakan untuk memberikan sekaligus langsung banyak variabel contoh penggunaannya dibawah ini:
---------------------------------------------------------------------------------
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
a:array[1..10] of integer;
b:integer;
begin
a[1]:=25;
a[2]:=30;
a[3]:=28;
a[4]:=59;
a[5]:=72;
a[6]:=21;
a[7]:=15;
a[8]:=56;
a[9]:=23;
a[10]:=99;
for b:=1 to 10 do
writeln(a[b]);
readln;
end.
---------------------------------------------------------------------------------
