var
NPM : array[1..20] of string [10];
Nama : array[1..20] of string [25];
Nilai : array[1..20] of real;
Umur : array[1..20] of byte;
banyak,i : integer;
begin
write('Isi berapa data array yang diperlukan : ');readln(banyak);
for i = 1 to banyak do
begin
write('NPM : '); readln(NPM[i]);
write('Nama : ');readln(Nama[i]);
write('Nilai : ');readln(Nilai[i]);
write('Umur :');readln(Umur[i]);
end;
{cetak variabel array}
writeln('NPM Nama Nilai Umur');
for i:=1 to banyak do
begin
writeln(NPM[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
end;
readln;
end.
NPM : array[1..20] of string [10];
Nama : array[1..20] of string [25];
Nilai : array[1..20] of real;
Umur : array[1..20] of byte;
banyak,i : integer;
begin
write('Isi berapa data array yang diperlukan : ');readln(banyak);
for i = 1 to banyak do
begin
write('NPM : '); readln(NPM[i]);
write('Nama : ');readln(Nama[i]);
write('Nilai : ');readln(Nilai[i]);
write('Umur :');readln(Umur[i]);
end;
{cetak variabel array}
writeln('NPM Nama Nilai Umur');
for i:=1 to banyak do
begin
writeln(NPM[i]:10,Nama[i]:25,Nilai[i]:3:2,' ',Umur[i]:3);
end;
readln;
end.