Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program ganjil_genap;
- uses wincrt;
- var
- bil, i,g1,g2,j1,j2,n: integer;
- rt1,rt2:real;
- begin
- clrscr;
- 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);
- readkey;
- end.
Add Comment
Please, Sign In to add comment