Olimpiade Sains Provinsi (OSP) 2011 - Komputer, Nomor 38–40
Deskripsi Untuk Soal Nomor 38 dan 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!
2 jawaban
Muhammad Faisal Aziz11 tahun lalu
Trust me, I'm Handsome :v
0
- sum := sum+a[i];
- rata2:= sum/n
-
for i:= 0 to n-1 do begin readln (a[i]); end; maksimum:=a[0]; for i := 1 to n-1 do if maksimum < a[i] then maksimum:=a[i]; end; writeln(maksimum); end;
Nabila Rahmadani11 tahun lalu
SMANLI
0
yg no 38, pakai div. kan, tipe data rata2 dan n integer
rata2 := sum div n;
Masuk untuk menulis jawaban