program deklarasi_array;
uses crt;
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
clrscr;
write('berapa banyak array :');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;
writeln(' npm nama nilai umur');
for i := 1 to banyak do
begin
writeln(npm[i]:0,nama[i]:5,nilai[i]:5:3,umur[i]);
end;
readln;
end.
Post a Comment