array

                                                                                                                                                                                  

program arraynama_mahasiswa;

uses crt;

type

...

array_nama = array [1..5] of string;

array_npm = array [1..5] of integer;

array_almt = array [1..5] of string;

var

nama : array_nama;

npm : array_npm;

almt : array_almt;

hitung : integer;

begin

clrscr;

for hitung := 1 to 5 do

begin

write ('Masukkan nama mahasiwa : ');

readln (nama[hitung]);

write ('Masukkan npm mahasiswa : ');

readln (npm[hitung]);

write ('Masukkan alamat mahasiswa : ');

readln(almt[hitung]);

writeln ('');

end;

for hitung := 1 to 5 do

begin

writeln ('No.',hitung);

writeln ('Nama Mahasiswa : ', nama[hitung]);

writeln ('NPM Mahasiswa : ', npm[hitung]);

writeln ('Alamat Mahasiswa : ', almt[hitung]);

writeln ('');

end;

readln;

end.