uses wincrt;
var nilai:array[1..10] of integer;
jm,rata-rata:real;
begin
clrscr;
writeln('menghitung rata-rata 10 buah nilai');
write('nilai1=');readln(nilai[1]);
write('nilai2=');readln(nilai[2]);
write('nilai3=');readln(nilai[3]);
write('nilai4=');readln(nilai[4]);
write('nilai5=');readln(nilai[5]);
write('nilai6=');readln(nilai[6]);
write('nilai7=');readln(nilai[7]);
write('nilai8=');readln(nilai[8]);
write('nilai9=');readln(nilai[9]);
write('nilai10=');readln(nilai[10]);
jm:=nilai[1]+nilai[2]+nilai[3]+nilai[4]+
nilai[5]+nilai[6]+nilai[7]+nilai[8]+nilai[9]+nilai[10];
rata:=jm/10;
writeln;
writeln(jumlah =',jm:9:2);
(rata =',rata:9:2);
end.

output

menghitung rata-rata 10 buah nilai
nilai1= 50
nilai2= 55
nilai3= 60
nilai4= 50
nilai5= 55
nilai6= 60
nilai7= 55
nilai8= 50
nilai9= 60
nilai10= 65
jumlah= 560
rata-rata= 56

Array adalahaderetan rinci data yang mempunyai tipe data yang sjnis shingga mmungkinkan pada saat yang bersamaan menampung sejumlah data
macam array: a. Array berdimensi 1 : trdiri satu kolom atau satu baris
b. Array berdimensi dua : terdiri m kolom atau m baris
c. Array berimensi tinggi

Type Array : char,byte,string