Program Penggunaan_Larik;

{Program utama untuk mengisi elemen larik dengan nilai-nilai yang dibaca

dari piranti masukan , menuliskan seluruh elemen larik,dan menghitung

nilai rata-ratanya}

uses crt;

const Nmaks=100;

type LarikInt=array[1..Nmaks] of integer;

var

A:LarikInt;

i:integer;

N:integer;

u:real;

procedure BacaLarik2(var A:LarikInt;var N:integer);

var

i:integer;

jawab:char;

begin

Clrscr;

for i:=1 to N do

begin

write('Masukkan nilai A[',i,']:');readln( A[i]);

end;

end;

procedure TulisLarik(A:LarikInt;N:integer);

var

i:integer;

begin

for i:=1 to N do

writeln('A[',i,']=',A[i]);

end;

procedure HitungRataRata(A:LarikInt;N:integer;var u :real);

var

i:integer;

sum:integer;

banyak:integer;

begin

i:=1;

sum:=0;

for i:=1 to N do

begin

if A[i]mod 2=1 then

sum:=sum+A[i];

begin

banyak:=banyak+1;

end;

end;

u:=sum/banyak;

end;

begin

writeln('baca jumlah  data(N):');readln(N);

writeln('baca data:');

BacaLarik2(A,N);

WRITELN('TulisLarik:');

TulisLarik(A,N);

writeln('Hitung rata-rata:');

HitungRataRata(A,N,u);

writeln('Rata-rata data=',u:10:6);

 readln;

end.