var
    a: array[1..100] of integer
    n, jumlah, rata2: integer;
begin
    sum:=0;
    readln(n);
    for i:=1 to n do
    begin
        readln(a[i]);
    end;
    for i:=1 to n do
    { Soal No. 38: tuliskan kode 
    untuk menghitung jumlah semua elemen array a
    ..... }

    { Soal No. 39: tuliskan kode untuk menghitung rata2 nilai elemen 
    array a
    ..... }
end.

38. Tuliskan kode untuk menghitung hasil penjumlahan semua nilai yang disimpan pada array a dan disimpan pada variable jumlah di baris 13. Jawab: ……..

39. Tuliskan kode untuk menghitung hasil nilai rata-rata semua nilai yang ada pada array a dan disimpan pada variable rata2 di baris 16. Jawab: ……..

Asumsikan bahwa program dapat berjalan dengan benar (meskipun pada baris kedua perlu ‘;’).

38. Untuk menghitung jumlah semua elemen array, maka nilai sum hanya perlu untuk ditambahkan tiap elemen menjadi:

    sum:=sum+a[i];
    

39. Rata-rata dapat dihitung dengan jumlah semua elemen dibagi dengan banyak elemen. Namun rata2 memiliki tipe data integer, sehingga pembagian dapat dilakukan dengan menggunakan div (‘/’ hanya untuk tipe data real).

    rata2:=sum div n;