program hitung rata-rata bilangan, menggunakan bahasa pascal

Berikut adalah penulisan programnya

program hitung_rata_bilangan;

uses crt;

    var

    n: integer;

    x: integer;

    i: integer;

    jumlah: integer;

    rata: real;

begin

clrscr;

    writeln('Program Menghitung Rata-Rata Bilangan');

writeln('-------------------------------------');

writeln;

    write('Masukkan Jumlah Bilangan:');

    readln (n);

writeln;

    writeln('Masukkkan Bilangan:');

Jumlah:= 0;

for i:=1 to n do

    begin

write('Bilangan ke-',i,':');

    readln (x);

jumlah:= jumlah + n;

end;

Rata:= jumlah/n;

writeln;

writeln('Jumlah Bilangan:',Jumlah:6);

writeln('Rata-rata:',rata:6:2);

readkey;

end.

 

---

HASIL OUTPUT DARI PROGRAM ADALAH

---

-------------------------------------

Masukkan Jumlah Bilangan:7

Masukkkan Bilangan:

Bilangan ke-1:67

Bilangan ke-2:76

Bilangan ke-3:89

Bilangan ke-4:67

Bilangan ke-5:90

Bilangan ke-6:56

Bilangan ke-7:89

 

Jumlah Bilangan:    49

Rata-rata:  7.00