Menampilkan Data Array Pascal

Menampilkan Data Array Pascal

Program simpan_for_do;

uses crt;

var

    x: array[1..5] of integer;

    y: integer;

begin

    clrscr;

    for y:= 1 to 5 do

    begin

    readln(x[y]);

end;

    for y := 1 to 5 do

begin

    writeln('Nilai data pada x ',y,'=',x[y]);

end;

    readln;
 end.

nb : untuk menjalankan program, masukkan nilai data yang diinginkan kemudian enter, hingga 5x.
Hasil program :