PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL

PROGRAM BILANGAN GANJIL GENAP DAN RATA-RATA PASCAL
User menginputkan sejumlah angka. Dari angka inputan tersebut akan dibagi menjadi bilangan Ganjil dan Bilangan Genap. Kemudian akan dihitung jumlah rata2 dari bilangan Genap dan Ganjil.

Gini tampilannya :

=======================================================================

Program ganjil_genap;
uses crt;
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);
readln;
readln;
end.

Hatur nuhun semoga bermanfaat.