Algoritma Menghitung Rata-Rata Dari Suku Ke-N

      Buatlah algoritma untuk menghitung rata-rata dari N buah bilangan. dan jika sobat juga sedang kesulitan dalam mencari program paskal menghitung rata rata dari suku ke -n jangan galau dan risau sobat ini ada jalan pemecahan nya hehehehe.

1.      Program HITUNG_RATA_RATA_SUKU_N;

uses WinCrt;

var

k, n, x, jumlah : integer;

rata : real;

begin

write('Masukkan banyaknya suku deret : ');

readln(n);

jumlah := 0;

k := 1;

while k <= N do 

begin

write('Bilangan ke-',k,' : ');readln(x);

jumlah := jumlah + x;

k := k + 1;

end;

rata := jumlah/N;

writeln('Rata Ratanya Adalah:',rata);

  end.

SCREENSHOOT

 

Nah semoga apa yang saya bagikan bisa bermanfaat jika sobat ingin menambahkan atau memperbaiki bisa komen dibawah ini terimakasih.