Program Array Menghitung Jumlah N Bilangan Pascal (coding)

Bahasa Pemrograman Pascal merupakan bahasa yang cukup banyak dipakai oleh sebagian besar beginner programmer di Indonesia. Codepamulang kali ini akan memberikan contoh dari penggunakan Array atau Larik dalam bahasa tersebut untuk menghitung jumlah N bilangan. masukan melalui permbacaan papan ketik.

Programnya sebagai berikut:

program array)_menjumlah_N_bilangan;
uses crt;
var
   nilai : array[0..100] of integer;
   i,N,jumlah : integer;

begin
   clrscr;
   jumlah := 0;
   write('masukan banyak data yang akan dijumlahkan: ');
   readln(N);
   for i := 1 to N do
   begin
      write('masukan data ke-',i,' : ');
      readln(nilai[i]);
   end;
   for i := 1 to N do
   begin
      writeln('data ke-',i,' : ',nilai[i]);
   end;

   //penjumlahan
   for i := 1 to N do
   begin
      jumlah := jumlah + nilai[i];
   end;
   writeln('jumlah data : ',jumlah);
   readln;
end.

Hasil dari program tersebut sebagai berikut:

Thank you :)

SO: Program array sederhana, array pascal, array dalam pascal, program array menjumlah N bilangan, program menjumlah N bilangan, coding Pascal, coding menghitung jumlah N bilangan Pascal, Pascal sederhana, coding pascal sederhana.