Program Mahasiswa

Program Mahasiswa

Oleh : Andri Muchsin

****************

Program Mahasiswa;

Uses wincrt; 

var

   Nama, NIM : string;

   i,n,nilai,jum: integer;

   Rata: real;

begin

   jum:=0;

   write('Masukkan jumlah data: ');readln(n);

   repeat

   for i:= 1 to n do

   begin

   write('Masukkan Nama: ');readln(Nama);

   write('Masukkan NIM: ');readln(NIM);

   write('Masukkan Nilai: ');readln(Nilai);

   jum:= jum+nilai;

   end

   until(i>=n);

   Rata:=jum/n;

   writeln(Jum);

   writeln(Rata);

   end.