Algoritma

Hitungan jumlah Rata-rata Nilai Yang Diinputkan sebanyak N Kali.

Uses CRT ;
VAR
         JData,
         J,N :Byte ;
         TotN :Integer ;
         Rata : Real ;
Begin
          TotN := 0 ; Rata := 0 : J=1;
          Write (' jumlah Data :');Readln (JData);
          Begin
              Write (' Nilai Ke ', J',:');
              Readln (N) ;
              TotN := TotN +N ;
              Inc ( J );
          End;
          Rata := TotN / JData ;
          Write (' Nilai Rata -rata :', Rata:3:0 );
END.