Uses wincrt;
Var a,b,c,d,e,f,g,h,i: integer;
a0,aa : real;
begin
write('repeat n : ');
readln(a);
d:=0;
b:=0;
c:=0;
repeat
begin
write ('#==> ');
readln (f);

g:= g+f ;
if f >=0 then
begin
b:=b+f;
d:=d + 1;
a0:=b/d;
end
else
begin
c:=c+f;
e:=e + 1;
aa:=c/e;
end
end;
until g>=a;
writeln;
writeln('Jumlah bilangan positif = ',b);
writeln('Rata-rata bilangan positif = ',a0:0:2);

writeln;
writeln('Jumlah bilangan negatif = ',c);
writeln('Rata-rata bilangan negatif = ',aa:0:2);
readln;
end.

Do you like this article? Share It!