Tugas Algoritma dan Pemrograman II - 2

Buatlah program yang menambahkan bilangan sampai berjumlah 100 serta rata-ratanya.(Repeat-until dan while-do)

Program dengan kondisi While-do

uses wincrt;
var data,jml,i:integer;
    rata:real;
begin
     jml:=0;
     i:=0;
     while jml<100 do
           begin
                write('Data ke-',i+1,'= ');
                readln(data);
                jml:=jml+data;           
                 i:=i+1;     
            end;
     rata:=jml/i;
     writeln('Jumlanya     =',jml);
     writeln('Rata-ratanya = ',rata:0:2);
     
end.

Program dengan kondisi Repeat-until

uses wincrt;
var data,i,jml:integer;
    rata:real;
begin
     repeat
     write('data ke-',i+1,'= ');
     readln(data);
     jml:=jml+data;
     i:=i+1;
     until
     jml>=100;
     rata:=jml/i;
     writeln('Jumlahnya    =',jml);
     writeln('Rata-ratanya =',rata:0:2);
end.