[Pascal] Script Menghitung Jumlah dan Rata-Rata di Pemrograman Pascal

uses wincrt;

var i, data, jum, n : integer;

    rata : real;

begin

           

write('banyak data: ');

readln(n);

for i := 1 to n do

    begin

    write('data ',i,' :');

    read(data);

   

              

    jum := jum + data;  end;

    rata := jum/n;

                       

    write('jumlah: ',jum);

    write('rata-rata: ',rata:0:2);                   

end.

Posted in: Pascal,Pemrograman,Script

Posted in: programming