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 loaded in: 0.54 seconds
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
Click to see the code!
To insert emoticon you must added at least one space before the code.