Nilai rata-rata dan jumlah (for..to..do)

oleh arif zainurrohman

 program arifjum;
 uses wincrt;
 var
 i,n,angka,jum:integer;
 rata:real;
 begin
 jum:=0;
 write ('berapa banyak pengulangan akan dilakukan ? ');readln(n);
 for i:=1 to n do
 begin
 write ('masukkan angka ',i,' :');readln(angka);
 jum:=jum+angka;
 rata:=jum/n
 end;
 writeln('jumlah angka :',jum);
 writeln('rata - rata  :',rata);
 end.


Kota Pempek , 22 Maret 2012



akhukum fillah arif zainurrohman