Program Array

Uses wincrt;

var

nama:array[1..10]of string[20];

alamat:array[1..20]of string[30] ;

jml:array[1..20]of real;

i,j:byte;

begin

clrscr;

write('masukkan jumlah data:');readln(j);

for i:=1 to j do

begin

writeln('data ke-',i);

write('nama karyawan:');readln(nama[i]);

write('masukkan alamat:');readln(alamat[i]);

write('jumlah gaji:'); readln (jml[i]);

end;

clrscr;

writeln('DATA GAJI KARYAWAN');

writeln('========================');

writeln('No. nama karyawan total gaji');

writeln('========================');

for i:=1 to j do

begin

writeln(i:1,nama[i]:15,jml[i]:15:0);

end;

writeln('==========================');

readln

end.