CONTOH CODING MENGGUNAKAN ARRAY

program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Larik = array [1 .. 10] of integer;

var
  a: Larik;
  // a: array [1 .. 10] of integer;
  { a :array [1..10] of integer;
    jika [1,2,3,4,5] itu sama dengan [1..10]
    jadi sama saja }
  i: integer;

begin
  a[1] := 45;
  a[2] := 15;
  a[3] := 25;
  // writeln('nilai array ke 1 adalah:', a[1]);
  writeln('nilai array ke 2 adalah:', a[2]);
  writeln('nilai array ke 3 adalah:', a[3]);
  // jika di atas menggunakan satu fungsi
  for i := 1 to 3 do
    writeln('Nilai', 1, 'adalah', a[i]);
  // untuk mempersingkat outputnya maka dipermudahkan menggunakan for
  writeln('-------------------------------------------------------------');
  // input
  for i := 1 to 10 do
  begin
    write('masukkan nilai array', i, ':');
    readln(a[i]);
  end;

  // output
  for i := 1 to 10 do
  begin
    write('Nilai', i, a[i]);
  end;
  readln;

end.