Jawaban:

program array_satu_dimensi;

var

 a: array[1..5] of integer; // deklarasi array dengan panjang 5

 i: integer;

begin

 // input nilai pada array

 for i := 1 to 5 do

 begin

   writeln('Masukkan nilai a[', i, ']: ');

   readln(a[i]);

 end;

 // tampilkan nilai pada array

 writeln('Nilai pada array: ');

 for i := 1 to 5 do

 begin

   writeln('a[', i, '] = ', a[i]);

 end;

end.

Program di atas membuat sebuah array dengan panjang 5, kemudian mengisi nilai pada setiap elemen array menggunakan perulangan for. Setelah itu, program menampilkan nilai pada setiap elemen array dengan menggunakan perulangan for juga. Program ini bisa dijalankan pada kompiler Pascal seperti Free Pascal atau Turbo Pascal.