Program sangat sangat sederhana Pascal (perhitungan rata-rata) :D

Sekedar share aja untuk yang baru belajar Pascal [ like me :') ] .

Listing Program

uses crt;

var

x:array[byte] of integer;

total,rata :real;

a, b, c :integer;

begin

clrscr;

total:=0; rata :=0;

write('Banyaknya data : ');readln(c);

writeln (' ');

writeln('-------------------');

for a := 1 to c do

    begin

    write('Data ke ',a,' : ');readln(x[a]);

    total:=total+x[a];

end;

rata:=total/c;

writeln('-------------------');

writeln (' ');

writeln('Nilai rata-rata                    : ',rata:0:2);

for a := 1 to c do

    begin

    if x[a]>rata then

       b:=b+1;

end;

writeln('Jumlah mahasiswa di atas rata rata : ',b);

readln;

end.

Dari listing diatas, Output yang dihasilkan kurang-lebihnya seperti ini :