kumpulan contoh program pascal :program menghitung ganjil genap pada pascal

bahasa pemograman pascal suatu bahasa yang di khususkan untuk akademik bahasa yang mudah di pahami karna layaknya bahasa inggris 

berikut adalah contoh atau source coding turbo pascal untuk menghitung jumlah ganjil genap dan rata ratanya 

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;

55

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.

Hasilnya adalah: