Bantu temanmu belajar dengan menambahkan soal di Kujawab. Klik disini..

Olimpiade Sains Provinsi (OSP) 2011 - Komputer , Nomor 38 - 40

Deskripsi untuk soal nomor 38 - 40

Perhatikan program berikut:


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.

39

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

var
a: array[0..100] of integer;

function maksimum(n: integer): integer;
var
  i: integer;
begin
{ Soal 40: lengkapi kode dengan algoritma untuk menentukan nilai maksimum
 dari semua nilai yang disimpan pada a[0] s.d. a[N-1], dengan N>0 dan N<101 }
end;
40

Lengkapilah fungsi maksimum di atas, agar menghasilkan nilai maksimum dari array A dari indeks 0 sampai ke N-1, N>0. Tuliskan kodenya!