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.
