Program jumlah dan rata-rata menggunakan Array dan perulangan For pada pascal

Program jumlah dan rata-rata menggunakan Array dan perulangan For pada pascal - Dalam pemograman pascal terdapat metode array yang dapat menyimpan sejumlah bilangan yang bertipe sama dan terdapat perulangan For. Nah disini saya mempunyai soal yaitu :

Soal :

Buatlah program penjumlahan menggunakan Array dan perulangan For untuk mencari total nilai dan rata-rata nilai pada pascal dimana pengguna dapat menginput jumlah data yang dimasukkan dan nilainya

Penyelesaiannya :

program Project1;
 var
   x: array [1..100] of integer;
   n,i,jmh : integer;
   rata :real;
begin
  write ('masukan banyak data ;'); readln (n);
  jmh :=0;
  for i := 1 to n do
  begin
    write ('masukan nilai ke',i,':'); readln (x[i]);
    jmh := jmh + x[i];
  end;
  rata :=jmh / n ;
  writeln ('jumlah :',jmh);
  writeln ('ratarata:',rata:0:2);
  readln;
end.

Hasil :

Nah soaln Membuatlah program penjumlahan menggunakan Array dan perulangan For untuk mencari total nilai dan rata-rata nilai pda pascal sudah terpecahkan, untuk yang buat tugas jangan asal copy paste, dicoba untuk dimengerti logikanya. Thanks you udah berkunjung di blog saya.