M.Y.U

Program menghitung_jumlah_ganjil_genap_dan_reratanya;
uses wincrt;
var
data:array[1..100] of integer;
n,i:integer;
jumGanjil,nGanjil,JumGenap,nGenap:integer;
rataGenap,rataGanjil:real;
begin
jumGenap:=0;
nGenap:=0;
jumGanjil:=0;
nGanjil:=0;
write('Masukkan banyak data =');readln(n);
for i:= 1 to n do
begin
write('Data ke ',i,' =');readln(data[i]);
if data[i] mod 2 =0 then
begin
jumGenap:=jumGenap+data[i];
nGenap:=nGenap+1;
end
else
begin
jumGanjil:=JumGanjil+data[i];
nGanjil:=nGanjil+1;
end;
end;
rataGenap:=jumGenap/nGenap;
rataGanjil:=jumGanjil/nGanjil;
writeln('Cacah Genap = ',nGenap,' rata-rata Genap =
',rataGenap:0:2);
writeln('Cacah Ganjil = ',nGanjil,' rata-rata Ganjil =
',rataGanjil:0:2);
writeln('Jumlah Genap = ',jumGenap);
writeln('jumlah Ganjil = ',JumGanjil);
end.