Pascal - Array, Nilai Total dan Rata-rata

//Ryan Bekabe @ 16:08 09/03/2018
//Materi Pascal - Array, Nilai Total dan Rata-rata
//Materi ini berasal dari kegiatan ToT ICT untuk Olimpiade Sains Komputer
//Masih materi dasar
//Pascal yang digunakan: Free Pascal IDE for Win 32, atau kalau mau yang
//lebih mudah 'menurut saya' bisa pakai Windows Free Pascal 'IDE ver.1.0'
//Langsung saja, berikut Sourcecode Program dalam Bahasa Pascal untuk
//Array, Nilai Total dan Rata-rata
program p14;
uses crt;
const N=100;
type int_array = ARRAY [1..N] of longint;
var bil : int_array;
indeks,x,y: longint;
begin
clrscr;
writeln('Masukkan x bilangan integer: ');read(x);writeln('Anda memasukkan ',x,' kali!');
for indeks := 1 to x do
begin
read(bil[indeks]);
end;
writeln('Isi dari array ini adalah');
y:=0;
for indeks := 1 to x do
begin
writeln('bil[', indeks:2,']) adalah ',bil[indeks]);
y:=y+bil[indeks];
end;
writeln('Total semua = ',y);
writeln('Rata-rata = ',y/indeks:0:0);readln;
readln;
end.
//Selesai. Terima kasih. Jangan lupa Subscribe, Like, dan Share