Program Pascal Array 1 Dimensi

Program Array 1 Dimensi

Saya kali ini akan memposting cara membuat program pascal array satu dimensi

Gimana si cara membuatnya ?, langsung saja lihat di bawah ini!

Program array1dimensi;

uses crt;

var nilai: arraay[1..38]of real;

a,b:integer;

begin

clrscr;

write('Masukan Nomer Absen: '); readln(b);

for a=1 to b do

begin

write('Absen ke -',a,':'); readln(nilai[a]);

end;

readln;

writeln('Absen ke 2 adalah',nilai[a]);

readln;

end.

Kurang lebih nya seperti itu kodingannya, dibawah ini adalah outputnya:

Sekian postingan kali ini mohon maaf bila ada kesalahan saya juga masih belajar