PROGRAM BILANGAN GANJIL MENGGUNAKAN ARRAY

program Angka_ganjil;

uses wincrt;

var

a : array [1..10] of integer;

i,batas,jum : integer;

rata : real;

begin

write ('Batas : '); readln(batas);

writeln('DERET BILANGAN PRIMA');

for i:=batas downto 1 do

begin

     a[i]:=2*i-1;

     write (a[i],' , ');

end;

writeln;

writeln('JUMLAH BILANGAN PRIMA');

jum := 0;

for i := batas downto 1 do

jum := jum + a[i];

writeln (jum);

writeln ('RATA - RATA');

rata := jum / batas;

write(rata:0:2);

end.