Contoh Kode Program Menghitung Jumlah dan Banyaknya Data

Lanjutkan lagi ke kode sederhana selanjutnya bagi programmer pemula,,,,

Berikut ini codingnya heee...

program contoh4;

uses wincrt;

var

n, i,byk,jum, bil : integer;

begin

Write('Masukkan nilai perulangan : ');readln(n);

Writeln;

for i := 1 to n do

begin

write('Bilangan ',i,' = ');read(bil);

if bil >= 10 then

begin

byk := byk+1;

jum := jum+bil ;

end;

end;

writeln;

writeln('banyak bilangan yang >= 10 : ',byk);

writeln('jumlah bilangan yang >= 10 : ',jum);

end.

Coba yang sabar ya,,, dan semoga bermanfaat hiii...