SCJ3 No 1

program soal1;
uses crt;
var data:array[1..100] of integer;
    n,angka,x,jumlah,pembagi:integer;
    ratarata:real;
begin
        clrscr;
        write('Masukkan jumlah angka');
        read(angka);
        jumlah:=0;
        pembagi:=angka;
        for n:=1 to angka do
        begin
                write('Data',n,'=');
                read(x);
                data[n]:=x;
                jumlah:=jumlah+data[n];
        end;
        ratarata:=jumlah div pembagi;
        writeln('Rata - rata = ',ratarata:2:2);
readkey;
end.