Program ganjil_genap;
uses wincrt;
var
bil, i,g1,g2,j1,j2,n: integer;
rt1,rt2:real;
begin
write('Masukkan Banyaknya Data ' );readln(n);
for i := 1 to n do
begin
write('Bilangan ke:',i ,' ');readln(bil);
if bil mod 2 = 0 then
j1:=j1 +1;
g1:=g1+bil;
if bil mod 2 =1 then
j2:=j2+1;
g2:=g2+bil;
end;
rt1:=g1/j1;
rt2:=g2/j2;
writeln('Jumlah bil. Ganjil=' ,j2);
writeln('Jumlah bil. Genap=' ,j1);
writeln('Rerata Ganjil=' ,rt2:4:2);
writeln('Rerata Genap=' ,rt1:4:2);
end.
Dan lihat hasilnya
Page Load
0 komentar:
Posting Komentar
Terimakasih sudah berkomentar dengan baik, sopan dan tidak mengandung spam,dimohon untuk tidak meletakan link aktif dalam komentar!!!
Klik Subscribe by email jika ingin mengetahui update komentar pada artikel ini, thank you for visiting
Ttd : Dani Setiadi