Program Penjumlahan dan Rata Rata dengan Perulangan For Do Pascal

Program Penjumlahan 10 Bilangan
 

Program Penjumlahan_10_Bilangan;

USES CRT;

VAR

            i,n,x, jumlah : integer;

BEGIN

            Clrscr;

            Jumlah := 0;

            For i := 1 to 10 do

            Begin

            write('Masukan bilangan ke- ',i,'  : ');read(x);

            Jumlah := jumlah + x;

            end;

            write('Jumlah = ',jumlah);

            readkey;

end.

Progam Penjumlahan dan Rata-Rata 10 Bilangan
 

Program Penjumlahan_dan_Ratarata_10_Bilangan;

USES CRT;

VAR

            i,n,x, jumlah : integer;

            Real : Real;

BEGIN

            Clrscr;

            Jumlah := 0;

            For i := 1 to 10 do

            Begin

            write('Masukan bilangan ke- ',i,'  : ');read(x);

            Jumlah := jumlah + x;

            end;

            rata := jumlah/10;

            write('Rata-rata : ',rata:4:2);

            readkey;

end.