Program jumlah dan rata-rata menggunakan array dan perulangan while do pada Pascal

Program jumlah dan rata-rata menggunakan array dan perulangan while do pada Pascal - Masih menggunakan soal seperti sebelumnya yang mencari total nilai dan rata - rata menggunakan Array dan For, disini kita hanya mengganti perulangan For menggunakan Perulangan While - Do.

Soal

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

Penyelesaiannya :

Program Project1;
var
nilai: array[1..100] of integer;
jml,n, i,j : integer;
rata: real;
begin
  write('msukan banyak data '); readln(n);
  i:= 0;
  j:=0;
  jml:=0;
  while n>i do
  begin
    i:= i + 1;
    write('masukan data ke ',i,' : '); readln(nilai[i]);
    jml:= jml + nilai[i];
    end ;
  while n> j do
  begin   j:= j + 1;
    writeln(' data ke ',j,' adalah = ',nilai[j]);
    end;
  rata:= jml/n;
  writeln('total : ',jml);
  writeln('rata-rata : ',rata:0:1);
  readln;
end.

Hasil :

Nah soaln Membuatlah program penjumlahan menggunakan Array dan perulangan While-Do 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.