Input Output memasukan sejumlah data

TUGAS PASCAL

SOAL 9

Nama: Miftachul Bahri // 153600033

             Rifqi Nazrudin //153600034

Tujuan:

Memasukkan sejumlah data. Komputer akan menghitung jumlah data, rata-rata data serta total data yang saudara masukan. Jika program dijalankan:

Program:

uses wincrt;

var

   n,m: integer;                     

   rata,jum: real;                     

   x : array[1..100] of integer;   

               

Begin                

         write(' Jumlah data anda  =');

         readln(m);

         n:=1;

         jum:=0;

     repeat

            Write('Data anda ke ',n,' = ');

            readln(x[n]);

            jum:=jum+x[n];

            n:=n+1;

     until n=(m+1);

     writeln('Jumlah data anda =',m);

     rata:=jum / m;

     writeln('Total data anda =',jum:3:2);

     writeln('Rata-rata data = ',rata:3:2);

end.

Proyek: